blob: c1bba29b865aa193b2b51ddfaef1b627adb2266b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module Common.Model.CreatedPayment
( CreatedPayment(..)
) where
import Data.Aeson (FromJSON, ToJSON)
import GHC.Generics (Generic)
import Common.Model.Payment (Payment)
import Common.Model.PaymentCategory (PaymentCategory)
data CreatedPayment = CreatedPayment
{ _createdPayment_payment :: Payment
, _createdPayment_paymentCategory :: PaymentCategory
} deriving (Show, Generic)
instance FromJSON CreatedPayment
instance ToJSON CreatedPayment
|
