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" $