blob: ac4c90697376b7339038a7e9334c8f875722b0de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module Model.EditPayment
( EditPayment(..)
) where
import Data.Text (Text)
import Data.Time.Calendar (Day)
import Common.Model (CategoryId, Frequency, PaymentId)
data EditPayment = EditPayment
{ _editPayment_id :: PaymentId
, _editPayment_name :: Text
, _editPayment_cost :: Int
, _editPayment_date :: Day
, _editPayment_category :: CategoryId
, _editPayment_frequency :: Frequency
} deriving (Show)
|
