diff options
| author | Joris | 2019-11-03 15:47:11 +0100 |
|---|---|---|
| committer | Joris | 2019-11-03 15:47:14 +0100 |
| commit | 0f85cbd8ee736b1996e3966bac1f5e47ed7d27a9 (patch) | |
| tree | 661049f0876e097c739bd65579ca550a88945796 /client | |
| parent | 182f3d3fea9985c0e403087fe253981c68e57102 (diff) | |
| download | budget-0f85cbd8ee736b1996e3966bac1f5e47ed7d27a9.tar.gz budget-0f85cbd8ee736b1996e3966bac1f5e47ed7d27a9.tar.bz2 budget-0f85cbd8ee736b1996e3966bac1f5e47ed7d27a9.zip | |
Fetch the first payment date instead of every payment to get cumulative income
Diffstat (limited to 'client')
| -rw-r--r-- | client/client.cabal | 1 | ||||
| -rw-r--r-- | client/src/Util/Date.hs | 12 | ||||
| -rw-r--r-- | client/src/View/Income/Header.hs | 4 |
3 files changed, 1 insertions, 16 deletions
diff --git a/client/client.cabal b/client/client.cabal index cac06d5..04c8543 100644 --- a/client/client.cabal +++ b/client/client.cabal @@ -60,7 +60,6 @@ Executable client Model.Route Util.Ajax Util.Css - Util.Date Util.Either Util.List Util.Reflex diff --git a/client/src/Util/Date.hs b/client/src/Util/Date.hs deleted file mode 100644 index 8fad881..0000000 --- a/client/src/Util/Date.hs +++ /dev/null @@ -1,12 +0,0 @@ -module Util.Date - ( utcToLocalDay - ) where - -import Data.Time.Calendar (Day) -import Data.Time.Clock (UTCTime) -import qualified Data.Time.LocalTime as LocalTime - -utcToLocalDay :: UTCTime -> IO Day -utcToLocalDay time = do - timezone <- LocalTime.getCurrentTimeZone - return . LocalTime.localDay $ LocalTime.utcToLocalTime timezone time 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) -> |