mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-09-11 16:16:09 +03:00
Pass raise
This commit is contained in:
parent
06760b9076
commit
8886306ef5
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user