jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-10-26 16:10:55 +03:00
Code Issues Packages Projects Releases Wiki Activity

Filter files in withArbitraryFilesProjectVisitor

Browse Source
This commit is contained in:
Jeroen Engels 2023-06-02 16:26:06 +02:00
parent 40e619410f
commit a64f4fe18d
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Review/Rule.elm
View File

@ -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
}