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

correct spelling mistake

Browse Source
This commit is contained in:
Edward Betts 2017-09-01 18:43:05 +01:00 committed by patrick brisbin
parent 25e63cdcc2
commit 20dcb234dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Auth/OAuth2.hs
View File

@ -108,7 +108,7 @@ authOAuth2Widget widget name oauth getCreds = AuthPlugin name dispatch login
master <- lift getYesod master <- lift getYesod
result <- liftIO $ fetchAccessToken (authHttpManager master) oauth' (encodeUtf8 code) result <- liftIO $ fetchAccessToken (authHttpManager master) oauth' (encodeUtf8 code)
case result of case result of
Left _ -> permissionDenied "Unable to retreive OAuth2 token" Left _ -> permissionDenied "Unable to retrieve OAuth2 token"
Right token -> do Right token -> do
creds <- liftIO $ getCreds (authHttpManager master) token creds <- liftIO $ getCreds (authHttpManager master) token
lift $ setCredsRedirect creds lift $ setCredsRedirect creds