diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-26 04:13:31 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-26 04:13:31 -0500 |
| commit | d5ffc77a120b304d98dbd31b3272bcd312334385 (patch) | |
| tree | 2a4f2cbebe503bbea4fda131f704ef21042b7ac9 /src/Auth.purs | |
| parent | f186a0bc9a56f12aaa0ae50d0e50c4be8d0f91c9 (diff) | |
Redirect URL on login page
Diffstat (limited to 'src/Auth.purs')
| -rw-r--r-- | src/Auth.purs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/Auth.purs b/src/Auth.purs index 1b5cd16..40a919e 100644 --- a/src/Auth.purs +++ b/src/Auth.purs @@ -33,6 +33,10 @@ foreign import _clearSessionCookie :: Effect Unit clearSessionCookie :: forall m. MonadEffect m => m Unit clearSessionCookie = liftEffect _clearSessionCookie -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 +foreign import _getQueryRedirect :: forall a. (a -> Maybe a) -> Maybe a -> Effect (Maybe String) +getQueryRedirect :: forall m . MonadEffect m => m (Maybe String) +getQueryRedirect = liftEffect $ _getQueryRedirect Just Nothing + +foreign import _getResponseRedirect :: forall a. (a -> Maybe a) -> Maybe a -> Foreign -> Effect (Maybe String) +getResponseRedirect :: forall m . MonadEffect m => Foreign -> m (Maybe String) +getResponseRedirect x = liftEffect $ _getResponseRedirect Just Nothing x |