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

Whitespace

Browse Source
This commit is contained in:
patrick brisbin 2014-09-22 15:02:32 -04:00
parent a5c691512e
commit 646d2b246b
No known key found for this signature in database
GPG Key ID: DB04E2CE780A17DE
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/Learn.hs
View File

@ -64,7 +64,7 @@ oauth2Learn clientId clientSecret = authOAuth2 "learn"
fetchLearnProfile :: Manager -> AccessToken -> IO (Creds m) fetchLearnProfile :: Manager -> AccessToken -> IO (Creds m)
fetchLearnProfile manager token = do fetchLearnProfile manager token = do
result <- authGetJSON manager token "http://learn.thoughtbot.com/api/v1/me.json" result <- authGetJSON manager token "http://learn.thoughtbot.com/api/v1/me.json"
case result of case result of
Right (LearnResponse user) -> return $ toCreds user Right (LearnResponse user) -> return $ toCreds user
Left err -> throwIO $ InvalidProfileResponse "learn" err Left err -> throwIO $ InvalidProfileResponse "learn" err