blob: b7d4d7dbceb772f6e61fcfecec979614815d6a00 (
plain)
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
|
{-# LANGUAGE DeriveGeneric #-}
module Model.Json.EditPayment
( EditPayment(..)
) where
import Data.Aeson
import Data.Text (Text)
import Data.Time.Calendar (Day)
import GHC.Generics
import Model.Category (CategoryId)
import Model.Frequency (Frequency)
import Model.Payment (PaymentId)
data EditPayment = EditPayment
{ id :: PaymentId
, name :: Text
, cost :: Int
, date :: Day
, category :: CategoryId
, frequency :: Frequency
} deriving (Show, Generic)
instance FromJSON EditPayment
|
