diff options
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 |