diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Auth.js | 2 | ||||
| -rw-r--r-- | src/Main.purs | 6 |
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 |