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

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