diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-05 02:59:06 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-05 02:59:06 -0500 |
| commit | c8e4f88739d52717de9e5faea4e752918e6457b3 (patch) | |
| tree | cae66186cbb569026ddc90e4d6573e020435c08a /fig-frontend-client/src/Auth.purs | |
| parent | e1a38bb1fa9bd08633c4e760997ee5571a962505 (diff) | |
Move frontend out of repo
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 - , "\"" - ] |