diff options
| author | Joris | 2019-11-17 18:08:28 +0100 |
|---|---|---|
| committer | Joris | 2019-11-17 18:08:28 +0100 |
| commit | c0ea63f8c1a8c7123b78798cec99726b113fb1f3 (patch) | |
| tree | 0b92f7e0c125c067a5f1ccafe6a1f04f1edfae86 /common/src/Common/Model/Payment.hs | |
| parent | 4dc84dbda7ba3ea60d13e6f81eeec556974b7c72 (diff) | |
Optimize and refactor payments
Diffstat (limited to 'common/src/Common/Model/Payment.hs')
| -rw-r--r-- | common/src/Common/Model/Payment.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/common/src/Common/Model/Payment.hs b/common/src/Common/Model/Payment.hs index 37a090d..c232fc7 100644 --- a/common/src/Common/Model/Payment.hs +++ b/common/src/Common/Model/Payment.hs @@ -10,6 +10,7 @@ import Data.Time (UTCTime) import Data.Time.Calendar (Day) import GHC.Generics (Generic) +import Common.Model.Category (CategoryId) import Common.Model.Frequency import Common.Model.User (UserId) @@ -21,6 +22,7 @@ data Payment = Payment , _payment_name :: Text , _payment_cost :: Int , _payment_date :: Day + , _payment_category :: CategoryId , _payment_frequency :: Frequency , _payment_createdAt :: UTCTime , _payment_editedAt :: Maybe UTCTime |