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

Merge branch 'update/send-post-body' into merge/test-all-providers

Browse Source
This commit is contained in:
nbloomf 2020-07-08 01:40:31 -05:00
commit f1ab6091cc
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
package.yaml
View File

@ -25,7 +25,7 @@ library:
- aeson >=0.6 && <1.5 - aeson >=0.6 && <1.5
- bytestring >=0.9.1.4 - bytestring >=0.9.1.4
- errors - errors
- hoauth2 >=1.3.0 && <1.9 - hoauth2 >=1.7.0 && <1.11
- http-client >=0.4.0 && <0.7 - http-client >=0.4.0 && <0.7
- http-conduit >=2.0 && <3.0 - http-conduit >=2.0 && <3.0
- http-types >=0.8 && <0.13 - http-types >=0.8 && <0.13

2
src/Yesod/Auth/OAuth2/Dispatch.hs
View File

@ -67,7 +67,7 @@ dispatchCallback name oauth2 getCreds = do
code <- requireGetParam "code" code <- requireGetParam "code"
manager <- authHttpManager manager <- authHttpManager
oauth2' <- withCallbackAndState name oauth2 csrf oauth2' <- withCallbackAndState name oauth2 csrf
token <- errLeft $ fetchAccessToken manager oauth2' $ ExchangeToken code token <- errLeft $ fetchAccessToken2 manager oauth2' $ ExchangeToken code
creds <- errLeft $ tryFetchCreds $ getCreds manager token creds <- errLeft $ tryFetchCreds $ getCreds manager token
setCredsRedirect creds setCredsRedirect creds
where where