From a01138e6e45c9542e0351def1df2f25c147de5e7 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 9 Sep 2019 12:53:07 +0200 Subject: [PATCH] remove auth from userlist --- src/API.hs | 3 +-- src/Control/User.hs | 4 ++-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/API.hs b/src/API.hs index 0bb8038..8dde479 100644 --- a/src/API.hs +++ b/src/API.hs @@ -28,8 +28,7 @@ type MateAPI = :> Capture "uid'" Int :> Get '[JSON] UserDetails :<|> "user" :> AuthProtect "header-auth" :> Capture "uid'" Int :> ReqBody '[JSON] UserDetailsSubmit :> Patch '[JSON] () - :<|> "user" :> "list" :> AuthProtect "header-auth" - :> QueryParam "refine" Refine :> Get '[JSON] [User] + :<|> "user" :> "list" :> QueryParam "refine" UserRefine :> Get '[JSON] [UserSummary] :<|> "user" :> "recharge" :> AuthProtect "header-auth" :> ReqBody '[JSON] UserRecharge :> Post '[JSON] () :<|> "user" :> "transfer" :> AuthProtect "header-auth" diff --git a/src/Control/User.hs b/src/Control/User.hs index 41969d3..a125975 100644 --- a/src/Control/User.hs +++ b/src/Control/User.hs @@ -58,8 +58,8 @@ userUpdate (Just aid) uid uds = { errBody = "Wrong Authentication present." } -userList :: Maybe Int -> Maybe Refine -> MateHandler [User] -userList _ ref = do +userList :: Maybe UserRefine -> MateHandler [UserSummary] +userList ref = do conn <- rsConnection <$> ask userSelect ref conn