Fetch the first payment date instead of every payment to get cumulative income

1 files changed, 1 insertions, 3 deletions

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) ->