summaryrefslogtreecommitdiff
path: root/fig-frontend-client/src/Auth.purs
diff options
context:
space:
mode:
Diffstat (limited to 'fig-frontend-client/src/Auth.purs')
-rw-r--r--fig-frontend-client/src/Auth.purs29
1 files changed, 0 insertions, 29 deletions
diff --git a/fig-frontend-client/src/Auth.purs b/fig-frontend-client/src/Auth.purs
deleted file mode 100644
index 2a53629..0000000
--- a/fig-frontend-client/src/Auth.purs
+++ /dev/null
@@ -1,29 +0,0 @@
-module Auth where
-
-import Prelude
-
-import Config (authRedirectURL, clientID)
-import Data.Array (fold)
-import Data.Maybe (Maybe(..))
-import Data.Tuple (Tuple(..))
-import Effect (Effect)
-import Effect.Class (class MonadEffect, liftEffect)
-
-foreign import _startTwitchAuth :: String -> String -> Effect Unit
-startTwitchAuth :: forall m. MonadEffect m => m Unit
-startTwitchAuth = liftEffect $ _startTwitchAuth clientID authRedirectURL
-
-type AuthInfo = Tuple String String
-foreign import _getToken :: forall a. (a -> Maybe a) -> Maybe a -> (a -> a -> Tuple a a) -> Effect (Maybe (Tuple String String))
-getToken :: forall m. MonadEffect m => m (Maybe AuthInfo)
-getToken = liftEffect $ _getToken Just Nothing Tuple
-
-authHeader :: AuthInfo -> String
-authHeader (Tuple t n) =
- fold
- [ "FIG-TWITCH token=\""
- , t
- , "\", nonce=\""
- , n
- , "\""
- ]