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

fixed code param

Browse Source
This commit is contained in:
David Mosbach 2024-01-10 01:30:34 +01:00
parent 564f964f7f
commit d75ba4f762
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Server.hs
View File

@ -137,7 +137,7 @@ authServer = handleAuth
(pre, post) = splitAt qPos url (pre, post) = splitAt qPos url
rState = case mState of {Just s -> "&state=" ++ s; Nothing -> ""} rState = case mState of {Just s -> "&state=" ++ s; Nothing -> ""}
post' = if not (null post) then '&' : tail post else post post' = if not (null post) then '&' : tail post else post
in Just . fromString $ pre ++ "?authorization_code=" ++ code ++ post' ++ rState in Just . fromString $ pre ++ "?code=" ++ code ++ post' ++ rState
---------------------- ----------------------