aboutsummaryrefslogtreecommitdiff
path: root/common/src
diff options
context:
space:
mode:
authorJoris2019-11-24 16:19:53 +0100
committerJoris2019-11-24 16:19:53 +0100
commit54628c70cb33de5e4309c35b9f6b57bbe9f7a07b (patch)
tree57e331cadfdf81b5598d21f76302f5269fd58344 /common/src
parent3c67fcf1d524811a18f0c4db3ef6eed1270b9a12 (diff)
Compute cumulative income with a DB query
Diffstat (limited to 'common/src')
-rw-r--r--common/src/Common/Model/IncomePage.hs3
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)