jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-11-29 01:24:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add files to RequestedData

Browse Source
This commit is contained in:
Jeroen Engels 2023-05-31 10:47:18 +02:00
parent 0e63394168
commit 2239a05643
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Review/RequestedData.elm
View File

@ -1,4 +1,4 @@
module Review.RequestedData exposing (RequestedData(..), combine, combineJust, none)
module Review.RequestedData exposing (RequestedData(..), combine, combineJust, none, withFiles)
type RequestedData
@ -35,6 +35,15 @@ combine maybeA maybeB =
a
withFiles : List String -> RequestedData -> RequestedData
withFiles files ((RequestedData requested) as untouched) =
if List.isEmpty files then
untouched
else
RequestedData { requested | files = files }
combineJust : RequestedData -> RequestedData -> RequestedData
combineJust (RequestedData a) (RequestedData b) =
RequestedData

1
src/Review/Rule.elm
View File

@ -1263,6 +1263,7 @@ fromProjectRuleSchema (ProjectRuleSchema schema) =
RequestedData.combine
(Maybe.map requestedDataFromContextCreator schema.moduleContextCreator)
(Maybe.map (.fromModuleToProject >> requestedDataFromContextCreator) schema.folder)
|> RequestedData.withFiles schema.arbitraryFileRequest
, providesFixes = schema.providesFixes
, ruleProjectVisitor =
Ok