module Common.Model.PaymentCategory
  ( PaymentCategoryId
  , PaymentCategory(..)
  ) where

import           Data.Aeson            (FromJSON, ToJSON)
import           Data.Int              (Int64)
import           Data.Text             (Text)
import           Data.Time             (UTCTime)
import           GHC.Generics          (Generic)

import           Common.Model.Category (CategoryId)

type PaymentCategoryId = Int64

data PaymentCategory = PaymentCategory
  { _paymentCategory_id        :: PaymentCategoryId
  , _paymentCategory_name      :: Text
  , _paymentCategory_category  :: CategoryId
  , _paymentCategory_createdAt :: UTCTime
  , _paymentCategory_editedAt  :: Maybe UTCTime
  } deriving (Show, Generic)

instance FromJSON PaymentCategory
instance ToJSON PaymentCategory