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

Remove Output type

Browse Source
This commit is contained in:
Jeroen Engels 2023-04-10 11:26:13 +02:00
parent 6a8ae9ce5e
commit 475c6bf11c
1 changed files with 12 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/Review/Rule.elm
View File

@ -4541,11 +4541,6 @@ computeDependencies reviewOptions project ruleProjectVisitors fixedErrors =
}
type Output
= FoundNoFixes { project : ValidProject, ruleProjectVisitors : List RuleProjectVisitor, step : Step, fixedErrors : FixedErrors }
| FoundFixes { project : ValidProject, ruleProjectVisitors : List RuleProjectVisitor, step : Step, fixedErrors : FixedErrors }
computeFinalProjectEvaluation :
ReviewOptionsData
-> ValidProject
@ -4553,12 +4548,7 @@ computeFinalProjectEvaluation :
-> FixedErrors
-> { project : ValidProject, ruleProjectVisitors : List RuleProjectVisitor, step : Step, fixedErrors : FixedErrors }
computeFinalProjectEvaluation reviewOptions project ruleProjectVisitors fixedErrors =
case computeFinalProjectEvaluationHelp reviewOptions project fixedErrors ruleProjectVisitors [] of
FoundNoFixes result ->
result
FoundFixes result ->
result
computeFinalProjectEvaluationHelp reviewOptions project fixedErrors ruleProjectVisitors []
computeFinalProjectEvaluationHelp :
@ -4567,16 +4557,15 @@ computeFinalProjectEvaluationHelp :
-> FixedErrors
-> List RuleProjectVisitor
-> List RuleProjectVisitor
-> Output
-> { project : ValidProject, ruleProjectVisitors : List RuleProjectVisitor, step : Step, fixedErrors : FixedErrors }
computeFinalProjectEvaluationHelp reviewOptions project fixedErrors rules accRules =
case rules of
[] ->
FoundNoFixes
{ project = project
, ruleProjectVisitors = accRules
, step = EndAnalysis
, fixedErrors = fixedErrors
}
{ project = project
, ruleProjectVisitors = accRules
, step = EndAnalysis
, fixedErrors = fixedErrors
}
((RuleProjectVisitor rule) as untouched) :: rest ->
case rule.finalProjectEvaluation of
@ -4606,12 +4595,11 @@ computeFinalProjectEvaluationHelp reviewOptions project fixedErrors rules accRul
Readme
)
in
FoundFixes
{ project = fixResult.project
, ruleProjectVisitors = updatedRule :: (rest ++ accRules)
, step = step
, fixedErrors = newFixedErrors
}
{ project = fixResult.project
, ruleProjectVisitors = updatedRule :: (rest ++ accRules)
, step = step
, fixedErrors = newFixedErrors
}
Nothing ->
computeFinalProjectEvaluationHelp