blob: b25d2a456486cde8d5bb33e9eda1484514bc7428 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module Model.CreatePayment
( CreatePayment(..)
) where
import Data.Text (Text)
import Data.Time.Calendar (Day)
import Common.Model (CategoryId, Frequency)
data CreatePayment = CreatePayment
{ _createPayment_name :: Text
, _createPayment_cost :: Int
, _createPayment_date :: Day
, _createPayment_category :: CategoryId
, _createPayment_frequency :: Frequency
} deriving (Show)
|
