Whitespace

Author: pbrisbin

Yesod/Auth/OAuth2/Learn.hs

@@ -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