diff options
| author | Joris | 2019-11-24 16:19:53 +0100 |
|---|---|---|
| committer | Joris | 2019-11-24 16:19:53 +0100 |
| commit | 54628c70cb33de5e4309c35b9f6b57bbe9f7a07b (patch) | |
| tree | 57e331cadfdf81b5598d21f76302f5269fd58344 /common/src/Common/Model/IncomePage.hs | |
| parent | 3c67fcf1d524811a18f0c4db3ef6eed1270b9a12 (diff) | |
| download | budget-54628c70cb33de5e4309c35b9f6b57bbe9f7a07b.tar.gz budget-54628c70cb33de5e4309c35b9f6b57bbe9f7a07b.tar.bz2 budget-54628c70cb33de5e4309c35b9f6b57bbe9f7a07b.zip | |
Compute cumulative income with a DB query
Diffstat (limited to 'common/src/Common/Model/IncomePage.hs')
| -rw-r--r-- | common/src/Common/Model/IncomePage.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/common/src/Common/Model/IncomePage.hs b/common/src/Common/Model/IncomePage.hs index c3f478e..0572141 100644 --- a/common/src/Common/Model/IncomePage.hs +++ b/common/src/Common/Model/IncomePage.hs @@ -9,7 +9,8 @@ import Common.Model.Income (Income) import Common.Model.IncomeHeader (IncomeHeader) data IncomePage = IncomePage - { _incomePage_header :: IncomeHeader + { _incomePage_page :: Int + , _incomePage_header :: IncomeHeader , _incomePage_incomes :: [Income] , _incomePage_totalCount :: Int } deriving (Show, Generic) |