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/TotalPayment.hs | |
| parent | 139d4a103a6a48880e5f12a796033956f223563c (diff) | |
Using UserId instead of UserName to indentify users
Diffstat (limited to 'src/server/Model/Json/TotalPayment.hs')
| -rw-r--r-- | src/server/Model/Json/TotalPayment.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/server/Model/Json/TotalPayment.hs b/src/server/Model/Json/TotalPayment.hs index e386c79..5ae68c9 100644 --- a/src/server/Model/Json/TotalPayment.hs +++ b/src/server/Model/Json/TotalPayment.hs @@ -9,8 +9,10 @@ import GHC.Generics import Data.Text (Text) import Data.Aeson +import Model.Database (UserId) + data TotalPayment = TotalPayment - { userName :: Text + { userId :: UserId , totalPayment :: Int } deriving (Show, Generic) |