From 0c7b30c562cb4f9e504510994dc2c7421af96af3 Mon Sep 17 00:00:00 2001
From: Jeroen Engels <jfm.engels@gmail.com>
Date: Mon, 10 Apr 2023 09:05:23 +0200
Subject: [PATCH] Create helper function

---
 src/Review/Rule.elm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Review/Rule.elm b/src/Review/Rule.elm
index d1902ba1..095b3b17 100644
--- a/src/Review/Rule.elm
+++ b/src/Review/Rule.elm
@@ -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 ) ->