diff options
author | Joris | 2015-09-05 13:53:36 +0200 |
---|---|---|
committer | Joris | 2015-09-05 13:53:36 +0200 |
commit | 3b738e0d4cc65f314da7389d4542ec826ba0f454 (patch) | |
tree | ee99236117ad698974c5a6e40ab170f617cb06f3 /src/server/Model/Json/Payment.hs | |
parent | 139d4a103a6a48880e5f12a796033956f223563c (diff) | |
download | budget-3b738e0d4cc65f314da7389d4542ec826ba0f454.tar.gz budget-3b738e0d4cc65f314da7389d4542ec826ba0f454.tar.bz2 budget-3b738e0d4cc65f314da7389d4542ec826ba0f454.zip |
Using UserId instead of UserName to indentify users
Diffstat (limited to 'src/server/Model/Json/Payment.hs')
-rw-r--r-- | src/server/Model/Json/Payment.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/server/Model/Json/Payment.hs b/src/server/Model/Json/Payment.hs index f22c8cf..8923c13 100644 --- a/src/server/Model/Json/Payment.hs +++ b/src/server/Model/Json/Payment.hs @@ -10,12 +10,14 @@ import Data.Time import Data.Text (Text) import Data.Aeson +import Model.Database (PaymentId, UserId) + data Payment = Payment - { id :: Text + { id :: PaymentId , creation :: UTCTime , name :: Text , cost :: Int - , userName :: Text + , userId :: UserId } deriving (Show, Generic) instance FromJSON Payment |