jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-12-23 17:53:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use List.append instead of List.concat

Browse Source
This commit is contained in:
Jeroen Engels 2021-10-17 17:12:48 +02:00
parent 6301df3fa8
commit 6f2bbfcd1c
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/Review/Rule.elm
View File

@ -786,7 +786,9 @@ runRules rules project nodeContexts =
( ruleErrors, ruleWithCache ) =
ruleImplementation exceptions project nodeContexts
in
( List.concat [ List.map removeErrorPhantomType ruleErrors, errors ], ruleWithCache :: previousRules )
( List.append (List.map removeErrorPhantomType ruleErrors) errors
, ruleWithCache :: previousRules
)
)
( [], [] )
rules
@ -4179,12 +4181,12 @@ visitExpression onEnter onExit node moduleContext =
-}
makeFinalEvaluation : List (context -> List (Error {})) -> ( List (Error {}), context ) -> List (Error {})
makeFinalEvaluation finalEvaluationFns ( previousErrors, context ) =
List.concat
[ List.concatMap
List.append
(List.concatMap
(\visitor -> visitor context)
finalEvaluationFns
, previousErrors
]
)
previousErrors
expressionChildren : Node Expression -> List (Node Expression)
@ -5271,10 +5273,9 @@ registerImportExposed import_ innerContext =
exposedTypes : Dict String (List String)
exposedTypes =
List.concat
[ List.map nameWithModuleName module_.unions
, List.map nameWithModuleName module_.aliases
]
List.append
(List.map nameWithModuleName module_.unions)
(List.map nameWithModuleName module_.aliases)
|> Dict.fromList
in
{ innerContext