From 20dcb234dcf9e80928a1710e1ac4baad013b38a4 Mon Sep 17 00:00:00 2001
From: Edward Betts <edward@4angle.com>
Date: Fri, 1 Sep 2017 18:43:05 +0100
Subject: [PATCH] correct spelling mistake

---
 Yesod/Auth/OAuth2.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Yesod/Auth/OAuth2.hs b/Yesod/Auth/OAuth2.hs
index d69a0dd..631f5c1 100644
--- a/Yesod/Auth/OAuth2.hs
+++ b/Yesod/Auth/OAuth2.hs
@@ -108,7 +108,7 @@ authOAuth2Widget widget name oauth getCreds = AuthPlugin name dispatch login
         master <- lift getYesod
         result <- liftIO $ fetchAccessToken (authHttpManager master) oauth' (encodeUtf8 code)
         case result of
-            Left _ -> permissionDenied "Unable to retreive OAuth2 token"
+            Left _ -> permissionDenied "Unable to retrieve OAuth2 token"
             Right token -> do
                 creds <- liftIO $ getCreds (authHttpManager master) token
                 lift $ setCredsRedirect creds