From 809d3c21037b1c1a26174e6a25928f9220083cf8 Mon Sep 17 00:00:00 2001
From: Phil de Joux <philderbeast@gmail.com>
Date: Thu, 17 Mar 2022 20:49:09 -0400
Subject: [PATCH] Follow hlint suggestions.

---
 waspc/src/Wasp/Analyzer/Evaluator/EvaluationError.hs | 2 --
 waspc/src/Wasp/Analyzer/Type.hs                      | 2 +-
 waspc/src/Wasp/Analyzer/TypeChecker/TypeError.hs     | 2 --
 waspc/test/AppSpec/ValidTest.hs                      | 4 ++--
 4 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/waspc/src/Wasp/Analyzer/Evaluator/EvaluationError.hs b/waspc/src/Wasp/Analyzer/Evaluator/EvaluationError.hs
index 257d2c065f..7ef6c72fc1 100644
--- a/waspc/src/Wasp/Analyzer/Evaluator/EvaluationError.hs
+++ b/waspc/src/Wasp/Analyzer/Evaluator/EvaluationError.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 module Wasp.Analyzer.Evaluator.EvaluationError
   ( EvaluationError (..),
     EvalErrorCtx (..),
diff --git a/waspc/src/Wasp/Analyzer/Type.hs b/waspc/src/Wasp/Analyzer/Type.hs
index 2bcb8b3a25..08f4d1580d 100644
--- a/waspc/src/Wasp/Analyzer/Type.hs
+++ b/waspc/src/Wasp/Analyzer/Type.hs
@@ -40,7 +40,7 @@ instance Show Type where
             entries -> "{\n" ++ intercalate ",\n" (map (("  " ++) . showEntry) entries) ++ "\n}"
     ListType typ -> "[" ++ show typ ++ "]"
     EmptyListType -> "[]"
-    TupleType (t1, t2, ts) -> "(" ++ (intercalate ", " $ show <$> (t1 : t2 : ts)) ++ ")"
+    TupleType (t1, t2, ts) -> "(" ++ intercalate ", " (show <$> (t1 : t2 : ts)) ++ ")"
     StringType -> "string"
     NumberType -> "number"
     BoolType -> "bool"
diff --git a/waspc/src/Wasp/Analyzer/TypeChecker/TypeError.hs b/waspc/src/Wasp/Analyzer/TypeChecker/TypeError.hs
index 42ec0f9ef3..dd152c4956 100644
--- a/waspc/src/Wasp/Analyzer/TypeChecker/TypeError.hs
+++ b/waspc/src/Wasp/Analyzer/TypeChecker/TypeError.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 module Wasp.Analyzer.TypeChecker.TypeError
   ( TypeError (..),
     TypeError' (..),
diff --git a/waspc/test/AppSpec/ValidTest.hs b/waspc/test/AppSpec/ValidTest.hs
index eca4a89ae0..d57199903d 100644
--- a/waspc/test/AppSpec/ValidTest.hs
+++ b/waspc/test/AppSpec/ValidTest.hs
@@ -59,7 +59,7 @@ spec_AppSpecValid = do
               }
 
       describe "should validate that when a page has authRequired, app.auth is also set." $ do
-        let makeSpec = \appAuth pageAuthRequired ->
+        let makeSpec appAuth pageAuthRequired =
               basicAppSpec
                 { AS.decls =
                     [ AS.Decl.makeDecl "TestApp" $
@@ -82,7 +82,7 @@ spec_AppSpecValid = do
                        ]
 
       describe "should validate that when app.auth is using EmailAndPassword, user entity is of valid shape." $ do
-        let makeSpec = \appAuth userEntity ->
+        let makeSpec appAuth userEntity =
               basicAppSpec
                 { AS.decls =
                     [ AS.Decl.makeDecl "TestApp" $