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 /common/src/Common/Model/IncomeHeader.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 'common/src/Common/Model/IncomeHeader.hs')
| -rw-r--r-- | common/src/Common/Model/IncomeHeader.hs | 12 |
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) |