From 0f85cbd8ee736b1996e3966bac1f5e47ed7d27a9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Nov 2019 15:47:11 +0100
Subject: Fetch the first payment date instead of every payment to get
 cumulative income

---
 client/src/View/Income/Header.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'client/src/View/Income/Header.hs')

diff --git a/client/src/View/Income/Header.hs b/client/src/View/Income/Header.hs
index 8451ee4..9e1c5b6 100644
--- a/client/src/View/Income/Header.hs
+++ b/client/src/View/Income/Header.hs
@@ -20,7 +20,6 @@ import qualified Common.View.Format     as Format
 
 import qualified Component.Button       as Button
 import qualified Component.Modal        as Modal
-import qualified Util.Date              as DateUtil
 import qualified View.Income.Form       as Form
 import           View.Income.Init       (Init (..))
 
@@ -48,8 +47,7 @@ view input =
         R.el "div" $ do
 
           R.el "h1" $ do
-            day <- liftIO $ DateUtil.utcToLocalDay since
-            R.text $ Msg.get (Msg.Income_CumulativeSince (Format.longDay day))
+            R.text $ Msg.get (Msg.Income_CumulativeSince (Format.longDay since))
 
           R.el "ul" $
             flip mapM_ (M.toList . _incomeHeader_byUser $ _in_header input) $ \(userId, amount) ->
-- 
cgit v1.2.3