haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-09-23 10:15:10 +02:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Restyled by brittany

Browse Source
This commit is contained in:
Restyled.io 2022-03-18 14:10:10 +00:00
parent 80a410375a
commit 8427ab4128
2 changed files with 83 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
example/Main.hs
View File

@ -23,16 +23,18 @@ module Main where
import Data.Aeson
import Data.Aeson.Encode.Pretty
import Data.ByteString.Lazy (fromStrict, toStrict)
import Data.ByteString.Lazy ( fromStrict
, toStrict
)
import qualified Data.Map as M
import Data.Maybe (fromJust)
import Data.Text (Text)
import Data.Maybe ( fromJust )
import Data.Text ( Text )
import qualified Data.Text as T
import Data.Text.Encoding (decodeUtf8)
import Data.Text.Encoding ( decodeUtf8 )
import LoadEnv
import Network.HTTP.Conduit
import Network.Wai.Handler.Warp (runEnv)
import System.Environment (getEnv)
import Network.Wai.Handler.Warp ( runEnv )
import System.Environment ( getEnv )
import Yesod
import Yesod.Auth
import Yesod.Auth.OAuth2.AzureAD

4
src/Yesod/Auth/OAuth2/Twitch.hs
View File

@ -50,7 +50,9 @@ oauth2TwitchScoped scopes clientId clientSecret =
`withQuery` [scopeParam " " scopes]
, oauth2TokenEndpoint = "https://id.twitch.tv/oauth2/token"
`withQuery` [ ("client_id", T.encodeUtf8 clientId)
, ("client_secret", T.encodeUtf8 clientSecret)
, ( "client_secret"
, T.encodeUtf8 clientSecret
)
]
, oauth2RedirectUri = Nothing
}