diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-14 21:20:28 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-14 21:20:28 -0500 |
| commit | a3991ddb8f61955c5c48ac99b6eed14d5e9f986a (patch) | |
| tree | b58d9a4beeeca61547d1ae3696d64fc2e2561ab4 /fig-web/src/Fig/Web/Auth.hs | |
| parent | d6bcaac870a03ed7ee0e6e1d6981e15f16778e2b (diff) | |
Account creation in LDAP using Twitch
Diffstat (limited to 'fig-web/src/Fig/Web/Auth.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Auth.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |