diff options
| author | Joris | 2017-03-24 09:21:04 +0000 |
|---|---|---|
| committer | Joris | 2017-03-24 09:21:04 +0000 |
| commit | cfca18262c1ff48dcb683ddab7d03cf8e55573ff (patch) | |
| tree | 8a438430cee7411259fc395d8f3898488e85d750 /src/server/Model/User.hs | |
| parent | 293eb8295162bf0a038f488237db9c9d1316c04d (diff) | |
Features/categories
Diffstat (limited to 'src/server/Model/User.hs')
| -rw-r--r-- | src/server/Model/User.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/server/Model/User.hs b/src/server/Model/User.hs index 696ef4f..ab39822 100644 --- a/src/server/Model/User.hs +++ b/src/server/Model/User.hs @@ -1,8 +1,8 @@ module Model.User - ( getUsers + ( list , getUser + , getJson , findUser - , getJsonUser , createUser , deleteUser ) where @@ -18,8 +18,8 @@ import Database.Persist import Model.Database import qualified Model.Json.User as Json -getUsers :: Persist [Entity User] -getUsers = selectList [] [Desc UserCreation] +list :: Persist [Entity User] +list = selectList [] [Desc UserCreation] getUser :: Text -> Persist (Maybe (Entity User)) getUser email = selectFirst [UserEmail ==. email] [] @@ -27,8 +27,8 @@ getUser email = selectFirst [UserEmail ==. email] [] findUser :: UserId -> [Entity User] -> Maybe User findUser i = fmap entityVal . find ((==) i . entityKey) -getJsonUser :: Entity User -> Json.User -getJsonUser userEntity = +getJson :: Entity User -> Json.User +getJson userEntity = let user = entityVal userEntity in Json.User (entityKey userEntity) (userName user) (userEmail user) |