diff options
Diffstat (limited to 'fig-frontend-client/src/Auth.purs')
| -rw-r--r-- | fig-frontend-client/src/Auth.purs | 29 |
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 - , "\"" - ] |
