blob: de6beb9c0848723f424b0520bcd80f538cf542e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE DeriveGeneric #-}
module Model.Json.Payment
( Payment(..)
) where
import GHC.Generics
import Data.Time
import Data.Text (Text)
import Data.Aeson
data Payment = Payment
{ creation :: UTCTime
, name :: Text
, cost :: Int
, userName :: Text
} deriving (Show, Generic)
instance FromJSON Payment
instance ToJSON Payment
|
