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