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

changed token endpoint to accept post requests

Browse Source
This commit is contained in:
David Mosbach 2024-01-10 01:51:44 +01:00
parent d75ba4f762
commit 83dacacf56
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Server.hs
View File

@ -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"