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