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/Auth.js   | 2 ++
 src/Main.purs | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Auth.js b/src/Auth.js
index 246052c..3c077ce 100644
--- a/src/Auth.js
+++ b/src/Auth.js
@@ -50,6 +50,8 @@ export const _clearSessionCookie = () => {
 };
 
 export const _getRedirect = (Just) => (Nothing) => (x) => () => {
+    const data = x["data"];
+    if (!data) return Nothing;
     const r = x["data"]["redirect"];
     if (r) return Just(r);
     return Nothing;
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