src/common/Model/PaymentCategory.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

{-# LANGUAGE DeriveGeneric #-}

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