wasp-lang/wasp
1
1
Fork 0
mirror of https://github.com/wasp-lang/wasp.git synced 2024-11-23 19:29:17 +03:00
Code Issues Projects Releases Wiki Activity

Follow hlint suggestions. (#513)

Browse Source
This commit is contained in:
Phil de Joux 2022-03-18 07:33:37 -04:00 committed by GitHub
parent 7865110085
commit 08704f4117
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
waspc/src/Wasp/Analyzer/Evaluator/EvaluationError.hs
View File

@ -1,5 +1,3 @@
{-# LANGUAGE LambdaCase #-}
module Wasp.Analyzer.Evaluator.EvaluationError
( EvaluationError (..),
EvalErrorCtx (..),

2
waspc/src/Wasp/Analyzer/Type.hs
View File

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

2
waspc/src/Wasp/Analyzer/TypeChecker/TypeError.hs
View File

@ -1,5 +1,3 @@
{-# LANGUAGE LambdaCase #-}
module Wasp.Analyzer.TypeChecker.TypeError
( TypeError (..),
TypeError' (..),

4
waspc/test/AppSpec/ValidTest.hs
View File

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