remove auth from userlist

This commit is contained in:
nek0 2019-09-09 12:53:07 +02:00
parent 12b8bf393c
commit a01138e6e4
2 changed files with 3 additions and 4 deletions

View file

@ -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"

View file

@ -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