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