From 8b635c5d44dc8841850a5bba21ded3bd443d22b9 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 18 Nov 2024 06:11:58 -0500
Subject: Check redirect

---
 src/Auth.js   | 6 ++++--
 src/Auth.purs | 4 +++-
 src/Main.purs | 4 +++-
 3 files changed, 10 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Auth.js b/src/Auth.js
index 9d5060c..246052c 100644
--- a/src/Auth.js
+++ b/src/Auth.js
@@ -49,6 +49,8 @@ export const _clearSessionCookie = () => {
     document.cookie = "authelia_session=; expires=Thu, 01 Jan 1970 00:00:00 GMT; SameSite=None; Secure";
 };
 
-export const getRedirect = (x) => {
-    return x.redirect;
+export const _getRedirect = (Just) => (Nothing) => (x) => () => {
+    const r = x["data"]["redirect"];
+    if (r) return Just(r);
+    return Nothing;
 };
diff --git a/src/Auth.purs b/src/Auth.purs
index a98b575..1b5cd16 100644
--- a/src/Auth.purs
+++ b/src/Auth.purs
@@ -33,4 +33,6 @@ foreign import _clearSessionCookie :: Effect Unit
 clearSessionCookie :: forall m. MonadEffect m => m Unit
 clearSessionCookie = liftEffect _clearSessionCookie
 
-foreign import getRedirect :: Foreign -> String
+foreign import _getRedirect :: forall a. (a -> Maybe a) -> Maybe a -> Foreign -> Effect (Maybe String)
+getRedirect :: forall m . MonadEffect m => Foreign -> m (Maybe String)
+getRedirect x = liftEffect $ _getRedirect Just Nothing x
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
-- 
cgit v1.2.3