Skip to content

Commit

Permalink
Whitespace
Browse files Browse the repository at this point in the history
  • Loading branch information
pbrisbin committed Sep 22, 2014
1 parent a5c6915 commit 646d2b2
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion Yesod/Auth/OAuth2/Learn.hs
Original file line number Diff line number Diff line change
Expand Up @@ -64,7 +64,7 @@ oauth2Learn clientId clientSecret = authOAuth2 "learn"
fetchLearnProfile :: Manager -> AccessToken -> IO (Creds m)
fetchLearnProfile manager token = do
result <- authGetJSON manager token "http://learn.thoughtbot.com/api/v1/me.json"

case result of
Right (LearnResponse user) -> return $ toCreds user
Left err -> throwIO $ InvalidProfileResponse "learn" err
Expand Down

0 comments on commit 646d2b2

Please sign in to comment.