Load init data per page with AJAX

1 files changed, 7 insertions, 4 deletions

diff --git a/client/src/View/Income/Header.hs b/client/src/View/Income/Header.hs
index e384161..4e08955 100644
--- a/client/src/View/Income/Header.hs
+++ b/client/src/View/Income/Header.hs
@@ -11,19 +11,22 @@ import qualified Data.Time.Clock        as Clock
 import           Reflex.Dom             (Dynamic, Event, MonadWidget)
 import qualified Reflex.Dom             as R
 
-import           Common.Model           (Income (..), Init (..), User (..))
+import           Common.Model           (Currency, Income (..), User (..))
 import qualified Common.Model           as CM
 import qualified Common.Msg             as Msg
 import qualified Common.View.Format     as Format
+
 import           Component              (ButtonOut (..))
 import qualified Component
 import qualified Component.Modal        as Modal
 import qualified Util.Date              as DateUtil
 import qualified View.Income.Add        as Add
+import           View.Income.Init       (Init (..))
 
 data HeaderIn t = HeaderIn
-  { _headerIn_init    :: Init
-  , _headerIn_incomes :: Dynamic t [Income]
+  { _headerIn_init     :: Init
+  , _headerIn_currency :: Currency
+  , _headerIn_incomes  :: Dynamic t [Income]
   }
 
 data HeaderOut t = HeaderOut
@@ -55,7 +58,7 @@ view headerIn =
                   T.intercalate " "
                     [ _user_name user
                     , "−"
-                    , Format.price (_init_currency init) $
+                    , Format.price (_headerIn_currency headerIn) $
                       CM.cumulativeIncomesSince currentTime since userIncomes
                     ]