From d86e0ab8de6cd558568301c470bd4c1e163177ba Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 18 Nov 2024 05:34:38 -0500 Subject: Add logout --- src/Auth.purs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/Auth.purs') 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 -- cgit v1.2.3