From 4a45e3dc3f5b6d9bf0f9e101d1f807c0ea42ac1f Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Thu, 14 Nov 2024 21:59:22 -0500
Subject: Logging changes

---
 fig-web/src/Fig/Web/Auth.hs | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'fig-web/src/Fig/Web')

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
-- 
cgit v1.2.3