From 646d2b246b2315e41a877745d01e20aca16771de Mon Sep 17 00:00:00 2001 From: patrick brisbin Date: Mon, 22 Sep 2014 15:02:32 -0400 Subject: [PATCH] Whitespace --- Yesod/Auth/OAuth2/Learn.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Yesod/Auth/OAuth2/Learn.hs b/Yesod/Auth/OAuth2/Learn.hs index eca9040..d260664 100644 --- a/Yesod/Auth/OAuth2/Learn.hs +++ b/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