diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-18 05:34:38 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-18 05:34:38 -0500 |
| commit | d86e0ab8de6cd558568301c470bd4c1e163177ba (patch) | |
| tree | 235c8efc82e278662e40b8239ba3feaec75ebcda /src/Auth.purs | |
| parent | 07adfbdcb959e2a789551e516bd389ce0002c6f8 (diff) | |
Add logout
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 |