From 16928434afce633ce5eaeea971309abfc28d3c08 Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Tue, 5 Jan 2021 13:48:38 -0500
Subject: [PATCH] Lint

---
 example/Main.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/example/Main.hs b/example/Main.hs
index 20d365f..1667bd6 100644
--- a/example/Main.hs
+++ b/example/Main.hs
@@ -46,8 +46,8 @@ import Yesod.Auth.OAuth2.Nylas
 import Yesod.Auth.OAuth2.Salesforce
 import Yesod.Auth.OAuth2.Slack
 import Yesod.Auth.OAuth2.Spotify
-import Yesod.Auth.OAuth2.WordPressDotCom
 import Yesod.Auth.OAuth2.Upcase
+import Yesod.Auth.OAuth2.WordPressDotCom
 
 data App = App
     { appHttpManager :: Manager
@@ -73,10 +73,9 @@ instance YesodAuth App where
 
     -- Copy the Creds response into the session for viewing after
     authenticate c = do
-        mapM_ (uncurry setSession) $
-            [ ("credsIdent", credsIdent c)
-            , ("credsPlugin", credsPlugin c)
-            ] ++ credsExtra c
+        mapM_ (uncurry setSession)
+            $ [("credsIdent", credsIdent c), ("credsPlugin", credsPlugin c)]
+            ++ credsExtra c
 
         return $ Authenticated "1"
 
@@ -150,7 +149,7 @@ mkFoundation = do
         , loadPlugin oauth2Upcase "UPCASE"
         ]
 
-    return App {..}
+    return App { .. }
   where
     loadPlugin f prefix = do
         clientId <- getEnv $ prefix <> "_CLIENT_ID"