From a64f4fe18df2799cecc193a03127c4bb549ed1b2 Mon Sep 17 00:00:00 2001
From: Jeroen Engels <jfm.engels@gmail.com>
Date: Fri, 2 Jun 2023 16:26:06 +0200
Subject: [PATCH] Filter files in withArbitraryFilesProjectVisitor

---
 src/Review/Rule.elm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/Review/Rule.elm b/src/Review/Rule.elm
index 1a906b55..52aef2f4 100644
--- a/src/Review/Rule.elm
+++ b/src/Review/Rule.elm
@@ -1867,11 +1867,17 @@ withArbitraryFilesProjectVisitor :
     -> (List { path : String, content : String } -> projectContext -> ( List (Error { useErrorForModule : () }), projectContext ))
     -> ProjectRuleSchema schemaState projectContext moduleContext
     -> ProjectRuleSchema { schemaState | hasAtLeastOneVisitor : () } projectContext moduleContext
-withArbitraryFilesProjectVisitor newRequestedFiles visitor (ProjectRuleSchema schema) =
+withArbitraryFilesProjectVisitor requestedFiles baseVisitor (ProjectRuleSchema schema) =
+    let
+        visitor : List { path : String, content : String } -> projectContext -> ( List (Error {}), projectContext )
+        visitor files context =
+            baseVisitor (List.filter (globMatch requestedFiles) files) context
+                |> Tuple.mapFirst removeErrorPhantomTypes
+    in
     ProjectRuleSchema
         { schema
-            | arbitraryFilesVisitor = Just (combineVisitors (removeErrorPhantomTypeFromVisitor visitor) schema.arbitraryFilesVisitor)
-            , arbitraryFileRequest = newRequestedFiles ++ schema.arbitraryFileRequest
+            | arbitraryFilesVisitor = Just (combineVisitors visitor schema.arbitraryFilesVisitor)
+            , arbitraryFileRequest = requestedFiles ++ schema.arbitraryFileRequest
         }