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

Tweak whitespace and alignment

Browse Source
This commit is contained in:
patrick brisbin 2015-06-25 16:00:43 -04:00
parent c54b2c7ba1
commit 6e904f1be3
No known key found for this signature in database
GPG Key ID: ADB6812F871D4478
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Yesod/Auth/OAuth2/Google.hs
View File

@ -68,24 +68,25 @@ oauth2GoogleScoped = oauth2GoogleScopedWithCustomId emailUid
-- See @'emailUid'@ and @'googleUid'@. -- See @'emailUid'@ and @'googleUid'@.
-- --
oauth2GoogleScopedWithCustomId :: YesodAuth m oauth2GoogleScopedWithCustomId :: YesodAuth m
=> (GoogleUser -> AccessToken -> Creds m) -- ^ A function to generate the credentials => (GoogleUser -> AccessToken -> Creds m)
-- ^ A function to generate the credentials
-> [Text] -- ^ List of scopes to request -> [Text] -- ^ List of scopes to request
-> Text -- ^ Client ID -> Text -- ^ Client ID
-> Text -- ^ Client secret -> Text -- ^ Client secret
-> AuthPlugin m -> AuthPlugin m
oauth2GoogleScopedWithCustomId toCreds scopes clientId clientSecret = authOAuth2 "google" oauth $ fetchGoogleProfile toCreds oauth2GoogleScopedWithCustomId toCreds scopes clientId clientSecret =
authOAuth2 "google" oauth $ fetchGoogleProfile toCreds
where where
oauth = OAuth2 oauth = OAuth2
{ oauthClientId = encodeUtf8 clientId { oauthClientId = encodeUtf8 clientId
, oauthClientSecret = encodeUtf8 clientSecret , oauthClientSecret = encodeUtf8 clientSecret
, oauthOAuthorizeEndpoint = encodeUtf8 $ , oauthOAuthorizeEndpoint = encodeUtf8
"https://accounts.google.com/o/oauth2/auth?scope=" <> T.intercalate "+" scopes $ "https://accounts.google.com/o/oauth2/auth?scope=" <> T.intercalate "+" scopes
, oauthAccessTokenEndpoint = "https://www.googleapis.com/oauth2/v3/token" , oauthAccessTokenEndpoint = "https://www.googleapis.com/oauth2/v3/token"
, oauthCallback = Nothing , oauthCallback = Nothing
} }
fetchGoogleProfile :: (GoogleUser -> AccessToken -> Creds m) -> Manager -> AccessToken -> IO (Creds m) fetchGoogleProfile :: (GoogleUser -> AccessToken -> Creds m) -> Manager -> AccessToken -> IO (Creds m)
fetchGoogleProfile toCreds manager token = do fetchGoogleProfile toCreds manager token = do
userInfo <- authGetJSON manager token "https://www.googleapis.com/oauth2/v3/userinfo" userInfo <- authGetJSON manager token "https://www.googleapis.com/oauth2/v3/userinfo"