Nicer errors, actually redirect

2 files changed, 6 insertions, 2 deletions

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