diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-14 21:59:22 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-14 21:59:22 -0500 |
| commit | 4a45e3dc3f5b6d9bf0f9e101d1f807c0ea42ac1f (patch) | |
| tree | 26c14029f3b0a50a56e2db9d53e6ddcc811ae109 /fig-web/src/Fig/Web/Auth.hs | |
| parent | 2975b7e20a35ecaff0619af133068238021a8c5b (diff) | |
Logging changes
Diffstat (limited to 'fig-web/src/Fig/Web/Auth.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Auth.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/fig-web/src/Fig/Web/Auth.hs b/fig-web/src/Fig/Web/Auth.hs index 2fb23b9..b78e3b3 100644 --- a/fig-web/src/Fig/Web/Auth.hs +++ b/fig-web/src/Fig/Web/Auth.hs @@ -67,14 +67,11 @@ checkAuth cfg = _other -> Nothing case (Map.lookup "token" pairs, Map.lookup "nonce" pairs) of (Just token, Just nonce) -> do - log $ tshow token - log $ tshow nonce validateToken (encodeUtf8 token) >>= \case Just tc | tc.aud == cfg.clientId , tc.nonce == nonce -> do - log $ tshow tc pure . Just $ Auth { name = tc.preferred_username , id = tc.sub |