diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-18 06:11:58 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-18 06:11:58 -0500 |
| commit | 8b635c5d44dc8841850a5bba21ded3bd443d22b9 (patch) | |
| tree | ee86673bbbf7cab2409f89800b31cf5701f32836 /src/Main.purs | |
| parent | 4a445edcb679345d6d730345a7d5cf39c8b70e6a (diff) | |
Check redirect
Diffstat (limited to 'src/Main.purs')
| -rw-r--r-- | src/Main.purs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Main.purs b/src/Main.purs index 4d0ec0d..af89f35 100644 --- a/src/Main.purs +++ b/src/Main.purs @@ -247,7 +247,9 @@ mainAuth = launchAff_ do , body: UI.toJSON { username, password } } res <- resp - liftEffect $ log $ getRedirect res + getRedirect res >>= case _ of + Nothing -> liftEffect $ log "failed" + Just r -> liftEffect $ log $ "redirect: " <> r main :: Effect Unit main = case Config.mode of |