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/Auth.purs | |
| parent | 4a445edcb679345d6d730345a7d5cf39c8b70e6a (diff) | |
Check redirect
Diffstat (limited to 'src/Auth.purs')
| -rw-r--r-- | src/Auth.purs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |