blob: 31039c7ba62a15555995cd759d324feb0f10bf76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Common.Model.PaymentPage
( PaymentPage(..)
) where
import Data.Aeson (FromJSON, ToJSON)
import GHC.Generics (Generic)
import Common.Model.Payment (Payment)
import Common.Model.PaymentCategory (PaymentCategory)
data PaymentPage = PaymentPage
{ _paymentPage_payments :: [Payment]
, _paymentPage_paymentCategories :: [PaymentCategory]
, _paymentPage_totalCount :: Int
} deriving (Show, Generic)
instance FromJSON PaymentPage
instance ToJSON PaymentPage
|