fixed code param

2024-01-10 01:30:34 +01:00 · 2024-01-10 01:30:34 +01:00 · d75ba4f762
commit d75ba4f762
parent 564f964f7f
1 changed files with 1 additions and 1 deletions
--- a/src/Server.hs
+++ b/src/Server.hs
@ -137,7 +137,7 @@ authServer = handleAuth
          (pre, post) = splitAt qPos url
          rState = case mState of {Just s -> "&state=" ++ s; Nothing -> ""}
          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


 ----------------------