From 6e2e0d09036ba9747c939c19003cbb550198e85d Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Mon, 24 Aug 2020 08:56:57 -0400
Subject: [PATCH] Lint ErrorResponse

---
 src/Yesod/Auth/OAuth2/ErrorResponse.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Yesod/Auth/OAuth2/ErrorResponse.hs b/src/Yesod/Auth/OAuth2/ErrorResponse.hs
index 1852c61..eb21126 100644
--- a/src/Yesod/Auth/OAuth2/ErrorResponse.hs
+++ b/src/Yesod/Auth/OAuth2/ErrorResponse.hs
@@ -66,10 +66,10 @@ checkErrorResponse :: MonadHandler m => m (Maybe ErrorResponse)
 checkErrorResponse = do
     merror <- lookupGetParam "error"
 
-    for merror $ \err -> ErrorResponse
-        <$> pure (readErrorName err)
-        <*> lookupGetParam "error_description"
-        <*> lookupGetParam "error_uri"
+    for merror $ \err ->
+        ErrorResponse (readErrorName err)
+            <$> lookupGetParam "error_description"
+            <*> lookupGetParam "error_uri"
 
 readErrorName :: Text -> ErrorName
 readErrorName "invalid_request" = InvalidRequest