From 5b0cc776ae85cd68dee0da87302c4e3b180a5357 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 18 Nov 2024 06:18:25 -0500
Subject: Nicer errors, actually redirect

---
 src/Main.purs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Main.purs')

diff --git a/src/Main.purs b/src/Main.purs
index af89f35..7897b49 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -248,8 +248,10 @@ mainAuth = launchAff_ do
       }
     res <- resp
     getRedirect res >>= case _ of
-      Nothing -> liftEffect $ log "failed"
-      Just r -> liftEffect $ log $ "redirect: " <> r
+      Nothing -> do
+        err <- byId "lcolonq-auth-error"
+        removeClass "lcolonq-invisible" err
+      Just r -> UI.redirect r
 
 main :: Effect Unit
 main = case Config.mode of
-- 
cgit v1.2.3