From cfca18262c1ff48dcb683ddab7d03cf8e55573ff Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 24 Mar 2017 09:21:04 +0000
Subject: Features/categories

---
 src/server/Model/User.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/server/Model/User.hs')

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)
 
-- 
cgit v1.2.3