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

address comment: add oauth2Auth0Host

Browse Source
This commit is contained in:
Haisheng W - M 2022-08-17 13:22:57 -07:00
parent ff5450d41a
commit 0dcda6363d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,6 +7,7 @@
-- --
module Yesod.Auth.OAuth2.Auth0 module Yesod.Auth.OAuth2.Auth0
( oauth2Auth0HostScopes ( oauth2Auth0HostScopes
, oauth2Auth0Host
, defaultAuth0Scopes , defaultAuth0Scopes
) where ) where
@ -28,6 +29,10 @@ defaultAuth0Scopes = ["openid"]
pluginName :: Text pluginName :: Text
pluginName = "auth0" pluginName = "auth0"
oauth2Auth0Host
:: YesodAuth m => URI -> Text -> Text -> AuthPlugin m
oauth2Auth0Host host = oauth2Auth0HostScopes host defaultAuth0Scopes
oauth2Auth0HostScopes oauth2Auth0HostScopes
:: YesodAuth m => URI -> [Text] -> Text -> Text -> AuthPlugin m :: YesodAuth m => URI -> [Text] -> Text -> Text -> AuthPlugin m
oauth2Auth0HostScopes host scopes clientId clientSecret = oauth2Auth0HostScopes host scopes clientId clientSecret =