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

Rearrange argument order

Browse Source
This commit is contained in:
Brian Schroeder 2015-08-11 12:03:22 -04:00 committed by patrick brisbin
parent 62e4260f5c
commit 8af444ddb2
No known key found for this signature in database
GPG Key ID: ADB6812F871D4478
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Yesod/Auth/OAuth2/Nylas.hs
View File

@ -53,15 +53,14 @@ oauth2Nylas :: YesodAuth m
=> Text -- ^ Client ID => Text -- ^ Client ID
-> Text -- ^ Client Secret -> Text -- ^ Client Secret
-> AuthPlugin m -> AuthPlugin m
oauth2Nylas clientId clientSecret = oauth2Nylas = oauth2NylasScoped ["email"]
oauth2NylasScoped clientId clientSecret ["email"]
oauth2NylasScoped :: YesodAuth m oauth2NylasScoped :: YesodAuth m
=> Text -- ^ Client ID => [Text] -- ^ Scopes
-> Text -- ^ Client Secret -> Text -- ^ Client ID
-> [Text] -- ^ Scopes -> Text -- ^ Client Secret
-> AuthPlugin m -> AuthPlugin m
oauth2NylasScoped clientId clientSecret scopes = oauth2NylasScoped scopes clientId clientSecret =
authOAuth2 "nylas" oauth fetchCreds authOAuth2 "nylas" oauth fetchCreds
where where
authorizeUrl = encodeUtf8 authorizeUrl = encodeUtf8