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

Use internal alias for module context functions

Browse Source
This commit is contained in:
Jeroen Engels 2020-03-20 13:38:39 +01:00
parent 9bf286c02b
commit 0113edbb91
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/Review/Rule.elm
View File

@ -733,14 +733,17 @@ type ModuleVisitor projectContext moduleContext
| HasVisitors (List (ModuleRuleSchema {} moduleContext -> ModuleRuleSchema { hasAtLeastOneVisitor : () } moduleContext))
| IsPrepared
{ visitors : List (ModuleRuleSchema {} moduleContext -> ModuleRuleSchema { hasAtLeastOneVisitor : () } moduleContext)
, moduleContext :
{ fromProjectToModule : ModuleKey -> Node ModuleName -> projectContext -> moduleContext
, fromModuleToProject : ModuleKey -> Node ModuleName -> moduleContext -> projectContext
, foldProjectContexts : projectContext -> projectContext -> projectContext
}
, moduleContext : ModuleContextFunctions projectContext moduleContext
}
type alias ModuleContextFunctions projectContext moduleContext =
{ fromProjectToModule : ModuleKey -> Node ModuleName -> projectContext -> moduleContext
, fromModuleToProject : ModuleKey -> Node ModuleName -> moduleContext -> projectContext
, foldProjectContexts : projectContext -> projectContext -> projectContext
}
type TraversalType
= AllModulesInParallel
| ImportedModulesFirst
@ -1159,11 +1162,7 @@ runProjectRule ((ProjectRuleSchema schema) as wrappedSchema) startCache exceptio
moduleVisitors :
Maybe
{ visitors : List (ModuleRuleSchema {} moduleContext -> ModuleRuleSchema { hasAtLeastOneVisitor : () } moduleContext)
, moduleContext :
{ fromProjectToModule : ModuleKey -> Node ModuleName -> projectContext -> moduleContext
, fromModuleToProject : ModuleKey -> Node ModuleName -> moduleContext -> projectContext
, foldProjectContexts : projectContext -> projectContext -> projectContext
}
, moduleContext : ModuleContextFunctions projectContext moduleContext
}
moduleVisitors =
case schema.moduleVisitor of
@ -1207,11 +1206,7 @@ computeModules :
ProjectRuleSchema projectContext moduleContext schemaState
->
{ visitors : List (ModuleRuleSchema {} moduleContext -> ModuleRuleSchema { hasAtLeastOneVisitor : () } moduleContext)
, moduleContext :
{ fromProjectToModule : ModuleKey -> Node ModuleName -> projectContext -> moduleContext
, fromModuleToProject : ModuleKey -> Node ModuleName -> moduleContext -> projectContext
, foldProjectContexts : projectContext -> projectContext -> projectContext
}
, moduleContext : ModuleContextFunctions projectContext moduleContext
}
-> Project
-> projectContext