jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-11-27 02:19:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Create helper function

Browse Source
This commit is contained in:
Jeroen Engels 2023-04-10 09:05:23 +02:00
parent 1f78ba22b6
commit 0c7b30c562
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Review/Rule.elm
View File

@ -4549,7 +4549,7 @@ computeFinalProjectEvaluation :
-> { project : ValidProject, ruleProjectVisitors : List RuleProjectVisitor, step : Step, fixedErrors : FixedErrors }
computeFinalProjectEvaluation reviewOptions project ruleProjectVisitors fixedErrors =
let
( errors, newRuleProjectVisitors ) =
computeFinalProjectEvaluationHelp rules =
List.foldl
(\((RuleProjectVisitor rule) as untouched) ( accErrors, accRules ) ->
case rule.finalProjectEvaluation of
@ -4564,7 +4564,10 @@ computeFinalProjectEvaluation reviewOptions project ruleProjectVisitors fixedErr
( accErrors, untouched :: accRules )
)
( [], [] )
ruleProjectVisitors
rules
( errors, newRuleProjectVisitors ) =
computeFinalProjectEvaluationHelp ruleProjectVisitors
in
case findFix reviewOptions project errors fixedErrors Nothing of
Just ( postFixStatus, fixResult ) ->