diff --git a/src/Server.hs b/src/Server.hs index c8ab1de..62bbb9a 100644 --- 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