diff options
Diffstat (limited to 'src/Auth.purs')
| -rw-r--r-- | src/Auth.purs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Auth.purs b/src/Auth.purs index 2a53629..2a87b6a 100644 --- a/src/Auth.purs +++ b/src/Auth.purs @@ -27,3 +27,11 @@ authHeader (Tuple t n) = , n , "\"" ] + +foreign import _getSessionCookie :: forall a. (a -> Maybe a) -> Maybe a -> Effect (Maybe String) +getSessionCookie :: forall m. MonadEffect m => m (Maybe String) +getSessionCookie = liftEffect $ _getSessionCookie Just Nothing + +foreign import _clearSessionCookie :: Effect Unit +clearSessionCookie :: forall m. MonadEffect m => m Unit +clearSessionCookie = liftEffect _clearSessionCookie |