1 files changed, 3 insertions, 1 deletions
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