diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-18 06:18:25 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-18 06:18:25 -0500 |
| commit | 5b0cc776ae85cd68dee0da87302c4e3b180a5357 (patch) | |
| tree | 62d237a0e4e9c45dbec86c438dadbe7980b38184 /src/Main.purs | |
| parent | 8b635c5d44dc8841850a5bba21ded3bd443d22b9 (diff) | |
Nicer errors, actually redirect
Diffstat (limited to 'src/Main.purs')
| -rw-r--r-- | src/Main.purs | 6 |
1 files changed, 4 insertions, 2 deletions
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 |