Use case expression

This commit is contained in:
Jeroen Engels 2023-04-10 11:09:45 +02:00
parent 37c75be380
commit 16d7583a3a

View File

@ -4576,10 +4576,9 @@ computeFinalProjectEvaluation reviewOptions project ruleProjectVisitors fixedErr
rest
accErrors
(untouched :: accRules)
(FoundNoErrors ( errors, newRuleProjectVisitors )) =
computeFinalProjectEvaluationHelp ruleProjectVisitors [] []
in
case computeFinalProjectEvaluationHelp ruleProjectVisitors [] [] of
FoundNoErrors ( errors, newRuleProjectVisitors ) ->
case findFix reviewOptions project errors fixedErrors Nothing of
Just ( postFixStatus, fixResult ) ->
let