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

1 files changed, 6 insertions, 6 deletions

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)