uniworx/oauth2-mock-server
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refined user routes

Browse Source
This commit is contained in:
David Mosbach 2024-01-10 02:30:43 +01:00
parent 9e61d356e2
commit 100e4f8765
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Server.hs
View File

@ -247,10 +247,12 @@ mkToken state = do
type Users = "users" type Users = "users"
type Me userData = Users type Me userData = Users
:> "me"
:> Header "Authorization" JWTWrapper :> Header "Authorization" JWTWrapper
:> Get '[JSON] userData :> Get '[JSON] userData
type UserList userData = Users type UserList userData = Users
:> "query"
:> Header "Authorization" JWTWrapper :> Header "Authorization" JWTWrapper
:> Get '[JSON] [userData] -- TODO support query params :> Get '[JSON] [userData] -- TODO support query params