From 83dacacf561603cead21a5ab707f96cc06eda785 Mon Sep 17 00:00:00 2001
From: David Mosbach <david.mosbach@live.de>
Date: Wed, 10 Jan 2024 01:51:44 +0100
Subject: [PATCH] changed token endpoint to accept post requests

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

diff --git a/src/Server.hs b/src/Server.hs
index db5298a..52f224d 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -128,7 +128,7 @@ authServer = handleAuth
       -- liftIO . putStrLn $ "user: " ++ show u ++ " | scopes: " ++ show (map (showScope @user @userData) scopes')
       redirect $ addParams url mAuthCode mState
     redirect :: Maybe ByteString -> AuthHandler userData
-    redirect (Just url) = throwError err303 { errHeaders = [("Location", url)]}
+    redirect (Just url) = liftIO (print url) >> throwError err303 { errHeaders = [("Location", url)]}
     redirect Nothing = throwError err500 { errBody = "Could not generate authorisation code."}
     addParams :: String -> Maybe String -> Maybe String -> Maybe ByteString
     addParams url Nothing _ = Nothing
@@ -207,7 +207,7 @@ instance FromHttpApiData JWTWrapper where
 
 type Token = "token"
           :> ReqBody '[JSON] ClientData
-          :> Get '[JSON] JWTWrapper
+          :> Post '[JSON] JWTWrapper
 
 tokenEndpoint :: AuthServer Token
 tokenEndpoint = provideToken
@@ -221,6 +221,7 @@ tokenEndpoint = provideToken
         unless valid . throwError $ err500 { errBody = "Invalid authorisation code" }
         -- return JWT {token = "", tokenType = "JWT", expiration = 0.25 * nominalDay}
         token <- asks mkToken >>= liftIO
+        liftIO . putStrLn $ "token: " ++ show token
         return token 
       x -> error $ show x ++ " not supported yet"