refined user routes

2024-01-10 02:30:43 +01:00 · 2024-01-10 02:30:43 +01:00 · 100e4f8765
commit 100e4f8765
parent 9e61d356e2
1 changed files with 2 additions and 0 deletions
--- a/src/Server.hs
+++ b/src/Server.hs
@ -247,10 +247,12 @@ mkToken state = do
 type Users = "users"

 type Me userData = Users
+                :> "me"
                :> Header "Authorization" JWTWrapper
                :> Get '[JSON] userData

 type UserList userData = Users
+                      :> "query"
                      :> Header "Authorization" JWTWrapper
                      :> Get '[JSON] [userData] -- TODO support query params