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

Use case expression

Browse Source
This commit is contained in:
Jeroen Engels 2023-04-10 11:09:45 +02:00
parent 37c75be380
commit 16d7583a3a
1 changed files with 31 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
src/Review/Rule.elm
View File

@ -4576,43 +4576,42 @@ computeFinalProjectEvaluation reviewOptions project ruleProjectVisitors fixedErr
rest
accErrors
(untouched :: accRules)
(FoundNoErrors ( errors, newRuleProjectVisitors )) =
computeFinalProjectEvaluationHelp ruleProjectVisitors [] []
in
case findFix reviewOptions project errors fixedErrors Nothing of
Just ( postFixStatus, fixResult ) ->
let
( newFixedErrors, step ) =
case postFixStatus of
ShouldAbort newFixedErrors_ ->
( newFixedErrors_, EndAnalysis )
case computeFinalProjectEvaluationHelp ruleProjectVisitors [] [] of
FoundNoErrors ( errors, newRuleProjectVisitors ) ->
case findFix reviewOptions project errors fixedErrors Nothing of
Just ( postFixStatus, fixResult ) ->
let
( newFixedErrors, step ) =
case postFixStatus of
ShouldAbort newFixedErrors_ ->
( newFixedErrors_, EndAnalysis )
ShouldContinue newFixedErrors_ ->
( newFixedErrors_
, case fixResult.fixedFile of
FixedElmModule _ moduleZipper ->
Modules moduleZipper
ShouldContinue newFixedErrors_ ->
( newFixedErrors_
, case fixResult.fixedFile of
FixedElmModule _ moduleZipper ->
Modules moduleZipper
FixedElmJson ->
ElmJson
FixedElmJson ->
ElmJson
FixedReadme ->
Readme
)
in
{ project = fixResult.project
, ruleProjectVisitors = newRuleProjectVisitors
, step = step
, fixedErrors = newFixedErrors
}
FixedReadme ->
Readme
)
in
{ project = fixResult.project
, ruleProjectVisitors = newRuleProjectVisitors
, step = step
, fixedErrors = newFixedErrors
}
Nothing ->
{ project = project
, ruleProjectVisitors = newRuleProjectVisitors
, step = EndAnalysis
, fixedErrors = fixedErrors
}
Nothing ->
{ project = project
, ruleProjectVisitors = newRuleProjectVisitors
, step = EndAnalysis
, fixedErrors = fixedErrors
}
reuseProjectRuleCache : (b -> Bool) -> (ProjectRuleCache a -> Maybe b) -> ProjectRuleCache a -> Maybe b