From 8b635c5d44dc8841850a5bba21ded3bd443d22b9 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 18 Nov 2024 06:11:58 -0500
Subject: Check redirect

---
 src/Main.purs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Main.purs')

diff --git a/src/Main.purs b/src/Main.purs
index 4d0ec0d..af89f35 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -247,7 +247,9 @@ mainAuth = launchAff_ do
       , body: UI.toJSON { username, password }
       }
     res <- resp
-    liftEffect $ log $ getRedirect res
+    getRedirect res >>= case _ of
+      Nothing -> liftEffect $ log "failed"
+      Just r -> liftEffect $ log $ "redirect: " <> r
 
 main :: Effect Unit
 main = case Config.mode of
-- 
cgit v1.2.3