From 54628c70cb33de5e4309c35b9f6b57bbe9f7a07b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Nov 2019 16:19:53 +0100
Subject: Compute cumulative income with a DB query

---
 common/src/Common/Model/IncomePage.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

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)
-- 
cgit v1.2.3