yesod-auth 0.7.7 → 0.7.7.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

Yesod/Auth/Facebook.hs +2/−2
yesod-auth.cabal +1/−1

Yesod/Auth/Facebook.hs view

@@ -67,8 +67,8 @@ parseCreds at' (Object m) = do     id' <- m .: "id"     let id'' = "http://graph.facebook.com/" `mappend` id'-    name <- m .: "name"-    email <- m .: "email"+    name <- m .:? "name"+    email <- m .:? "email"     return         $ Creds "facebook" id''         $ maybe id (\x -> (:) ("verifiedEmail", x)) email

yesod-auth.cabal view

@@ -1,5 +1,5 @@ name:            yesod-auth-version:         0.7.7+version:         0.7.7.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman, Patrick Brisbin