diff --git a/package.yaml b/package.yaml index 552f81a..d31f6ca 100644 --- a/package.yaml +++ b/package.yaml @@ -25,7 +25,7 @@ library: - aeson >=0.6 && <1.5 - bytestring >=0.9.1.4 - errors - - hoauth2 >=1.3.0 && <1.9 + - hoauth2 >=1.7.0 && <1.11 - http-client >=0.4.0 && <0.7 - http-conduit >=2.0 && <3.0 - http-types >=0.8 && <0.13 diff --git a/src/Yesod/Auth/OAuth2/Dispatch.hs b/src/Yesod/Auth/OAuth2/Dispatch.hs index f96581a..9011758 100644 --- a/src/Yesod/Auth/OAuth2/Dispatch.hs +++ b/src/Yesod/Auth/OAuth2/Dispatch.hs @@ -67,7 +67,7 @@ dispatchCallback name oauth2 getCreds = do code <- requireGetParam "code" manager <- authHttpManager 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 setCredsRedirect creds where