From c2794f40406917b89c2a428e6c774afb32a2e6b8 Mon Sep 17 00:00:00 2001 From: silky Date: Sun, 3 Jan 2016 11:08:36 +1100 Subject: [PATCH] Add user location Fixes #49. --- Yesod/Auth/OAuth2/Github.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Yesod/Auth/OAuth2/Github.hs b/Yesod/Auth/OAuth2/Github.hs index 4d48ff3..77d19fd 100644 --- a/Yesod/Auth/OAuth2/Github.hs +++ b/Yesod/Auth/OAuth2/Github.hs @@ -35,6 +35,7 @@ data GithubUser = GithubUser , githubUserName :: Maybe Text , githubUserLogin :: Text , githubUserAvatarUrl :: Text + , githubUserLocation :: Text } instance FromJSON GithubUser where @@ -43,6 +44,7 @@ instance FromJSON GithubUser where <*> o .:? "name" <*> o .: "login" <*> o .: "avatar_url" + <*> o .: "location" parseJSON _ = mzero @@ -96,6 +98,7 @@ toCreds user userMail token = Creds [ ("email", githubUserEmail $ head userMail) , ("login", githubUserLogin user) , ("avatar_url", githubUserAvatarUrl user) + , ("location", githubUserLocation user) , ("access_token", decodeUtf8 $ accessToken token) ] ++ maybeName (githubUserName user) }