diff options
author | Joris | 2019-08-11 22:40:09 +0200 |
---|---|---|
committer | Joris | 2019-08-11 22:40:09 +0200 |
commit | 2d79ab0e0a11f55255fc21a5dfab1598d3beeba3 (patch) | |
tree | 80ab3cd98cebfb9694f66aa7718f6bc5d1c83d22 /common/src/Common/Model/SavedPayment.hs | |
parent | c542424b7b41c78a170763f6996c12f56b359860 (diff) | |
download | budget-2d79ab0e0a11f55255fc21a5dfab1598d3beeba3.tar.gz budget-2d79ab0e0a11f55255fc21a5dfab1598d3beeba3.tar.bz2 budget-2d79ab0e0a11f55255fc21a5dfab1598d3beeba3.zip |
Add payment clone
Diffstat (limited to 'common/src/Common/Model/SavedPayment.hs')
-rw-r--r-- | common/src/Common/Model/SavedPayment.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/common/src/Common/Model/SavedPayment.hs b/common/src/Common/Model/SavedPayment.hs new file mode 100644 index 0000000..f45c479 --- /dev/null +++ b/common/src/Common/Model/SavedPayment.hs @@ -0,0 +1,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 |