common/src/Common/Model/IncomePage.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

module Common.Model.IncomePage
  ( IncomePage(..)
  ) where

import           Data.Aeson                (FromJSON, ToJSON)
import           GHC.Generics              (Generic)

import           Common.Model.Income       (Income)
import           Common.Model.IncomeHeader (IncomeHeader)

data IncomePage = IncomePage
  { _incomePage_page       :: Int
  , _incomePage_header     :: IncomeHeader
  , _incomePage_incomes    :: [Income]
  , _incomePage_totalCount :: Int
  } deriving (Eq, Show, Generic)

instance FromJSON IncomePage
instance ToJSON IncomePage