From 100e4f876574e2744dd853caf08e715365e55ac4 Mon Sep 17 00:00:00 2001
From: David Mosbach <david.mosbach@live.de>
Date: Wed, 10 Jan 2024 02:30:43 +0100
Subject: [PATCH] refined user routes

---
 src/Server.hs | 2 ++
 1 file changed, 2 insertions(+)

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