From dc417cb770ff3db274898864e16f34b2a0b9029a Mon Sep 17 00:00:00 2001
From: Jeroen Engels <jfm.engels@gmail.com>
Date: Sat, 17 Sep 2022 18:21:16 +0200
Subject: [PATCH] Speed up final evaluations

---
 src/Review/Rule.elm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/Review/Rule.elm b/src/Review/Rule.elm
index 88d6de59..9a94647e 100644
--- a/src/Review/Rule.elm
+++ b/src/Review/Rule.elm
@@ -4912,11 +4912,9 @@ visitCaseBranch expressionRelatedVisitors caseBlockWithRange (( _, caseExpressio
 -}
 makeFinalEvaluation : List (context -> List (Error {})) -> ( List (Error {}), context ) -> List (Error {})
 makeFinalEvaluation finalEvaluationFns ( previousErrors, context ) =
-    ListExtra.orderIndependentAppend
-        (ListExtra.fastConcatMap
-            (\visitor -> visitor context)
-            finalEvaluationFns
-        )
+    ListExtra.orderIndependentConcatMapAppend
+        (\visitor -> visitor context)
+        finalEvaluationFns
         previousErrors
 
 
@@ -5023,7 +5021,7 @@ errorsFromFinalEvaluationForProject projectVisitor initialContext contextsPerMod
                 Nothing ->
                     initialContext
     in
-    ListExtra.fastConcatMap
+    ListExtra.orderIndependentConcatMap
         (\finalEvaluationFn -> finalEvaluationFn finalContext)
         projectVisitor.finalEvaluationFns