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/src/Util/Date.hs | |
| 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/src/Util/Date.hs')
| -rw-r--r-- | client/src/Util/Date.hs | 12 |
1 files changed, 0 insertions, 12 deletions
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 |