From d75ba4f7625ea487d2f61a28c9d2227cc0133420 Mon Sep 17 00:00:00 2001
From: David Mosbach <david.mosbach@live.de>
Date: Wed, 10 Jan 2024 01:30:34 +0100
Subject: [PATCH] fixed code param

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

diff --git a/src/Server.hs b/src/Server.hs
index e11731c..db5298a 100644
--- 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
 
 
  ----------------------