haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ask for profile permission

Browse Source 
somehow we are able to read the profile
of most users without this
This commit is contained in:
Greg Weber 2015-09-10 15:57:01 -07:00
parent ae0d0b12c4
commit 6a567f0ccd
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/Yesod/Auth/GoogleEmail2.hs
View File

@ -152,7 +152,7 @@ authPlugin storeToken clientID clientSecret =
csrf <- getCreateCsrfToken csrf <- getCreateCsrfToken
render <- getUrlRender render <- getUrlRender
let qs = map (second Just) let qs = map (second Just)
[ ("scope", "email") [ ("scope", "email profile")
, ("state", csrf) , ("state", csrf)
, ("redirect_uri", render $ tm complete) , ("redirect_uri", render $ tm complete)
, ("response_type", "code") , ("response_type", "code")