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

Pass raise

Browse Source
This commit is contained in:
Jeroen Engels 2023-06-03 00:42:24 +02:00
parent 06760b9076
commit 8886306ef5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Review/Rule.elm
View File

@ -5620,7 +5620,7 @@ createRuleProjectVisitor schema initialProject ruleData initialCache =
RuleProjectVisitor
{ elmJsonVisitor = createProjectVisitor schema hidden schema.elmJsonVisitor ElmJsonStep ValidProject.elmJsonHash .elmJson (\entry -> raiseCache { cache | elmJson = Just entry }) (\() -> raise hidden)
, readmeVisitor = createProjectVisitor schema hidden schema.readmeVisitor ReadmeStep ValidProject.readmeHash .readme (\entry -> raiseCache { cache | readme = Just entry }) (\() -> raise hidden)
, extraFilesVisitor = createExtraFilesVisitor schema hidden (\entry -> raiseCache { cache | extraFiles = Just entry }) (\() -> raise hidden)
, extraFilesVisitor = createExtraFilesVisitor schema hidden raise (\entry -> raiseCache { cache | extraFiles = Just entry }) (\() -> raise hidden)
, dependenciesVisitor = createDependenciesVisitor schema hidden.ruleData raiseCache cache { allVisitor = schema.dependenciesVisitor, directVisitor = schema.directDependenciesVisitor }
, createModuleVisitorFromProjectVisitor = createModuleVisitorFromProjectVisitor schema raiseCache hidden
, finalProjectEvaluation = createFinalProjectEvaluationVisitor schema hidden.ruleData raiseCache cache
@ -5719,6 +5719,7 @@ createProjectVisitor schema hidden maybeVisitor step computeContentHash cacheGet
createExtraFilesVisitor :
ProjectRuleSchemaData projectContext moduleContext
-> RuleProjectVisitorHidden projectContext
-> ({ cache : ProjectRuleCache projectContext, ruleData : ChangeableRuleData } -> RuleProjectVisitor)
-> (ExtraFilesCache projectContext -> RuleProjectVisitor)
-> (() -> RuleProjectVisitor)
->
@ -5727,7 +5728,7 @@ createExtraFilesVisitor :
-> List { content : String, path : String }
-> ( List (Error {}), RuleProjectVisitor )
)
createExtraFilesVisitor schema hidden toRuleProjectVisitor toRuleProjectVisitorWithoutChangingCache =
createExtraFilesVisitor schema hidden raise toRuleProjectVisitor toRuleProjectVisitorWithoutChangingCache =
case schema.extraFilesVisitor of
Nothing ->
Nothing