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

---
 common/src/Common/Model/IncomeHeader.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'common/src/Common/Model/IncomeHeader.hs')

diff --git a/common/src/Common/Model/IncomeHeader.hs b/common/src/Common/Model/IncomeHeader.hs
index a1defdf..87c7aae 100644
--- a/common/src/Common/Model/IncomeHeader.hs
+++ b/common/src/Common/Model/IncomeHeader.hs
@@ -2,15 +2,15 @@ module Common.Model.IncomeHeader
   ( IncomeHeader(..)
   ) where
 
-import           Data.Aeson        (FromJSON, ToJSON)
-import           Data.Map          (Map)
-import           Data.Time.Clock   (UTCTime)
-import           GHC.Generics      (Generic)
+import           Data.Aeson         (FromJSON, ToJSON)
+import           Data.Map           (Map)
+import           Data.Time.Calendar (Day)
+import           GHC.Generics       (Generic)
 
-import           Common.Model.User (UserId)
+import           Common.Model.User  (UserId)
 
 data IncomeHeader = IncomeHeader
-  { _incomeHeader_since  :: Maybe UTCTime
+  { _incomeHeader_since  :: Maybe Day
   , _incomeHeader_byUser :: Map UserId Int
   } deriving (Show, Generic)
 
-- 
cgit v1.2.3