From 8b635c5d44dc8841850a5bba21ded3bd443d22b9 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 18 Nov 2024 06:11:58 -0500 Subject: Check redirect --- src/Auth.purs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Auth.purs') 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 -- cgit v1.2.3