diff options
| author | Joris | 2019-10-27 20:26:29 +0100 |
|---|---|---|
| committer | Joris | 2019-10-27 20:26:29 +0100 |
| commit | b97ad942495352c3fc1e0c820cfba82a9693ac7a (patch) | |
| tree | f554831888929e2eff5e1fe478f92758637d37cf /common | |
| parent | 8ef4d96644bce59bbb736af6359e644743e5610a (diff) | |
| download | budget-b97ad942495352c3fc1e0c820cfba82a9693ac7a.tar.gz budget-b97ad942495352c3fc1e0c820cfba82a9693ac7a.tar.bz2 budget-b97ad942495352c3fc1e0c820cfba82a9693ac7a.zip | |
WIP Set up server side paging for incomes
Diffstat (limited to 'common')
| -rw-r--r-- | common/common.cabal | 1 | ||||
| -rw-r--r-- | common/src/Common/Model.hs | 1 | ||||
| -rw-r--r-- | common/src/Common/Model/IncomesAndCount.hs | 16 |
3 files changed, 18 insertions, 0 deletions
diff --git a/common/common.cabal b/common/common.cabal index 1a441c5..9f3f65b 100644 --- a/common/common.cabal +++ b/common/common.cabal @@ -60,6 +60,7 @@ Library Common.Model.EditPaymentForm Common.Model.Frequency Common.Model.Income + Common.Model.IncomesAndCount Common.Model.Init Common.Model.InitResult Common.Model.Payer diff --git a/common/src/Common/Model.hs b/common/src/Common/Model.hs index c9f500b..3a5a627 100644 --- a/common/src/Common/Model.hs +++ b/common/src/Common/Model.hs @@ -12,6 +12,7 @@ import Common.Model.EditPaymentForm as X import Common.Model.Email as X import Common.Model.Frequency as X import Common.Model.Income as X +import Common.Model.IncomesAndCount as X import Common.Model.Init as X import Common.Model.InitResult as X import Common.Model.Payer as X diff --git a/common/src/Common/Model/IncomesAndCount.hs b/common/src/Common/Model/IncomesAndCount.hs new file mode 100644 index 0000000..4365180 --- /dev/null +++ b/common/src/Common/Model/IncomesAndCount.hs @@ -0,0 +1,16 @@ +module Common.Model.IncomesAndCount + ( IncomesAndCount(..) + ) where + +import Data.Aeson (FromJSON, ToJSON) +import GHC.Generics (Generic) + +import Common.Model.Income (Income) + +data IncomesAndCount = IncomesAndCount + { _incomesAndCount_incomes :: [Income] + , _incomesAndCount_count :: Int + } deriving (Show, Generic) + +instance FromJSON IncomesAndCount +instance ToJSON IncomesAndCount |