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