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

Merge computeFinalProjectEvaluation and computeFinalProjectEvaluationHelp

Browse Source
This commit is contained in:
Jeroen Engels 2023-04-10 11:28:24 +02:00
parent 475c6bf11c
commit 10140cf957
1 changed files with 4 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Review/Rule.elm
View File

@ -4309,7 +4309,7 @@ computeStepsForProject reviewOptions { project, ruleProjectVisitors, fixedErrors
FinalProjectEvaluation ->
computeStepsForProject
reviewOptions
(computeFinalProjectEvaluation reviewOptions project ruleProjectVisitors fixedErrors)
(computeFinalProjectEvaluation reviewOptions project fixedErrors ruleProjectVisitors [])
EndAnalysis ->
{ project = project
@ -4542,23 +4542,13 @@ computeDependencies reviewOptions project ruleProjectVisitors fixedErrors =
computeFinalProjectEvaluation :
ReviewOptionsData
-> ValidProject
-> List RuleProjectVisitor
-> FixedErrors
-> { project : ValidProject, ruleProjectVisitors : List RuleProjectVisitor, step : Step, fixedErrors : FixedErrors }
computeFinalProjectEvaluation reviewOptions project ruleProjectVisitors fixedErrors =
computeFinalProjectEvaluationHelp reviewOptions project fixedErrors ruleProjectVisitors []
computeFinalProjectEvaluationHelp :
ReviewOptionsData
-> ValidProject
-> FixedErrors
-> List RuleProjectVisitor
-> List RuleProjectVisitor
-> { project : ValidProject, ruleProjectVisitors : List RuleProjectVisitor, step : Step, fixedErrors : FixedErrors }
computeFinalProjectEvaluationHelp reviewOptions project fixedErrors rules accRules =
computeFinalProjectEvaluation reviewOptions project fixedErrors rules accRules =
case rules of
[] ->
{ project = project
@ -4602,7 +4592,7 @@ computeFinalProjectEvaluationHelp reviewOptions project fixedErrors rules accRul
}
Nothing ->
computeFinalProjectEvaluationHelp
computeFinalProjectEvaluation
reviewOptions
project
fixedErrors
@ -4610,7 +4600,7 @@ computeFinalProjectEvaluationHelp reviewOptions project fixedErrors rules accRul
(updatedRule :: accRules)
Nothing ->
computeFinalProjectEvaluationHelp
computeFinalProjectEvaluation
reviewOptions
project
fixedErrors