From a3991ddb8f61955c5c48ac99b6eed14d5e9f986a Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 14 Nov 2024 21:20:28 -0500 Subject: Account creation in LDAP using Twitch --- fig-web/src/Fig/Web/Auth.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'fig-web/src/Fig/Web/Auth.hs') diff --git a/fig-web/src/Fig/Web/Auth.hs b/fig-web/src/Fig/Web/Auth.hs index 3076d1f..2fb23b9 100644 --- a/fig-web/src/Fig/Web/Auth.hs +++ b/fig-web/src/Fig/Web/Auth.hs @@ -15,7 +15,6 @@ import qualified Jose.Jwk as Jwk import qualified Jose.Jwt as Jwt import qualified Web.Scotty as Sc -import qualified Web.Scotty.Cookie as Sc.C import Fig.Web.Utils @@ -65,7 +64,7 @@ checkAuth cfg = let pairs = Map.fromList $ flip mapMaybe authstr \s -> case Text.splitOn "=" s of [k, v] -> Just (k, Text.takeWhile (/='"') $ Text.drop 1 v) - _ -> Nothing + _other -> Nothing case (Map.lookup "token" pairs, Map.lookup "nonce" pairs) of (Just token, Just nonce) -> do log $ tshow token -- cgit v1.2.3