From 4a445edcb679345d6d730345a7d5cf39c8b70e6a Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 18 Nov 2024 06:06:24 -0500 Subject: No logout; let's redirect --- src/Auth.purs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Auth.purs') diff --git a/src/Auth.purs b/src/Auth.purs index 7f87f83..a98b575 100644 --- a/src/Auth.purs +++ b/src/Auth.purs @@ -8,6 +8,7 @@ import Data.Maybe (Maybe(..)) import Data.Tuple (Tuple(..)) import Effect (Effect) import Effect.Class (class MonadEffect, liftEffect) +import Foreign (Foreign) foreign import _startTwitchAuth :: String -> String -> Effect Unit startTwitchAuth :: forall m. MonadEffect m => m Unit @@ -31,3 +32,5 @@ authHeader (Tuple t n) = foreign import _clearSessionCookie :: Effect Unit clearSessionCookie :: forall m. MonadEffect m => m Unit clearSessionCookie = liftEffect _clearSessionCookie + +foreign import getRedirect :: Foreign -> String -- cgit v1.2.3