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

Fixes #42; slightly nicer error message when no 'code' field.

Browse Source
This commit is contained in:
silky 2015-10-13 15:22:57 +11:00
parent 4afaba6645
commit 348ffd9a01
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Yesod/Auth/OAuth2.hs
View File

@ -102,15 +102,18 @@ authOAuth2Widget widget name oauth getCreds = AuthPlugin name dispatch login
deleteSession tokenSessionKey deleteSession tokenSessionKey
case newToken of case newToken of
Just csrfToken | newToken == oldToken -> do Just csrfToken | newToken == oldToken -> do
code <- lift $ runInputGet $ ireq textField "code" mcode <- lift $ runInputGet $ iopt textField "code"
oauth' <- withCallback csrfToken case mcode of
master <- lift getYesod Nothing -> permissionDenied "`Code` field not provided."
result <- liftIO $ fetchAccessToken (authHttpManager master) oauth' (encodeUtf8 code) Just code -> do
case result of oauth' <- withCallback csrfToken
Left _ -> permissionDenied "Unable to retreive OAuth2 token" master <- lift getYesod
Right token -> do result <- liftIO $ fetchAccessToken (authHttpManager master) oauth' (encodeUtf8 code)
creds <- liftIO $ getCreds (authHttpManager master) token case result of
lift $ setCredsRedirect creds Left _ -> permissionDenied "Unable to retreive OAuth2 token"
Right token -> do
creds <- liftIO $ getCreds (authHttpManager master) token
lift $ setCredsRedirect creds
_ -> _ ->
permissionDenied "Invalid OAuth2 state token" permissionDenied "Invalid OAuth2 state token"

4
yesod-auth-oauth2.cabal
View File

@ -1,5 +1,5 @@
name: yesod-auth-oauth2 name: yesod-auth-oauth2
version: 0.1.4 version: 0.1.5
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Tom Streller author: Tom Streller
@ -52,4 +52,4 @@ library
source-repository head source-repository head
type: git type: git
location: https://github.com/thoughtbot/authenticate-oauth2.git location: https://github.com/thoughtbot/yesod-auth-oauth2.git