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

Restyled by stylish-haskell

Browse Source
This commit is contained in:
Restyled.io 2022-08-17 22:25:18 +00:00 committed by patrick brisbin
parent dd4903242a
commit e7fa28cefa
2 changed files with 35 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
example/Main.hs
View File

@ -21,39 +21,37 @@
-- --
module Main where module Main where
import Data.Aeson import Data.Aeson
import Data.Aeson.Encode.Pretty import Data.Aeson.Encode.Pretty
import Data.ByteString.Lazy ( fromStrict import Data.ByteString.Lazy (fromStrict, toStrict)
, toStrict import qualified Data.Map as M
) import Data.Maybe (fromJust)
import qualified Data.Map as M import Data.String (IsString(fromString))
import Data.Maybe ( fromJust ) import Data.Text (Text)
import Data.String ( IsString(fromString) ) import qualified Data.Text as T
import Data.Text ( Text ) import Data.Text.Encoding (decodeUtf8)
import qualified Data.Text as T import LoadEnv
import Data.Text.Encoding ( decodeUtf8 ) import Network.HTTP.Conduit
import LoadEnv import Network.Wai.Handler.Warp (runEnv)
import Network.HTTP.Conduit import System.Environment (getEnv)
import Network.Wai.Handler.Warp ( runEnv ) import Yesod
import System.Environment ( getEnv ) import Yesod.Auth
import Yesod import Yesod.Auth.OAuth2.Auth0
import Yesod.Auth import Yesod.Auth.OAuth2.AzureAD
import Yesod.Auth.OAuth2.Auth0 import Yesod.Auth.OAuth2.BattleNet
import Yesod.Auth.OAuth2.AzureAD import Yesod.Auth.OAuth2.Bitbucket
import Yesod.Auth.OAuth2.BattleNet import Yesod.Auth.OAuth2.ClassLink
import Yesod.Auth.OAuth2.Bitbucket import Yesod.Auth.OAuth2.EveOnline
import Yesod.Auth.OAuth2.ClassLink import Yesod.Auth.OAuth2.GitHub
import Yesod.Auth.OAuth2.EveOnline import Yesod.Auth.OAuth2.GitLab
import Yesod.Auth.OAuth2.GitHub import Yesod.Auth.OAuth2.Google
import Yesod.Auth.OAuth2.GitLab import Yesod.Auth.OAuth2.Nylas
import Yesod.Auth.OAuth2.Google import Yesod.Auth.OAuth2.Salesforce
import Yesod.Auth.OAuth2.Nylas import Yesod.Auth.OAuth2.Slack
import Yesod.Auth.OAuth2.Salesforce import Yesod.Auth.OAuth2.Spotify
import Yesod.Auth.OAuth2.Slack import Yesod.Auth.OAuth2.Twitch
import Yesod.Auth.OAuth2.Spotify import Yesod.Auth.OAuth2.Upcase
import Yesod.Auth.OAuth2.Twitch import Yesod.Auth.OAuth2.WordPressDotCom
import Yesod.Auth.OAuth2.Upcase
import Yesod.Auth.OAuth2.WordPressDotCom
data App = App data App = App
{ appHttpManager :: Manager { appHttpManager :: Manager

8
src/Yesod/Auth/OAuth2/Auth0.hs
View File

@ -11,10 +11,10 @@ module Yesod.Auth.OAuth2.Auth0
, defaultAuth0Scopes , defaultAuth0Scopes
) where ) where
import Data.Aeson as Aeson import Data.Aeson as Aeson
import qualified Data.Text as T import qualified Data.Text as T
import Prelude import Prelude
import Yesod.Auth.OAuth2.Prelude import Yesod.Auth.OAuth2.Prelude
-- | https://auth0.com/docs/api/authentication#get-user-info -- | https://auth0.com/docs/api/authentication#get-user-info
newtype User = User T.Text newtype User = User T.Text