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

Avoid recomputing the readme for module rules

Browse Source
This commit is contained in:
Jeroen Engels 2020-06-11 00:08:03 +02:00
parent 6116c8d4b1
commit c30f110e4c
1 changed files with 37 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/Review/Rule.elm
View File

@ -579,6 +579,7 @@ reverseVisitors (ModuleRuleSchema schema) =
type alias ModuleRuleCache moduleContext =
{ initialContext : moduleContext
, elmJson : SimpleCacheEntryFor (Maybe Elm.Project.Project) moduleContext
, readme : SimpleCacheEntryFor (Maybe String) moduleContext
, moduleResults : ModuleRuleResultCache
}
@ -598,21 +599,21 @@ type alias ModuleRuleResultCache =
runModuleRule : ModuleRuleSchema { schemaState | hasAtLeastOneVisitor : () } moduleContext -> Maybe (ModuleRuleCache moduleContext) -> Exceptions -> Project -> List (Graph.NodeContext ModuleName ()) -> ( List (Error {}), Rule )
runModuleRule ((ModuleRuleSchema schema) as moduleRuleSchema) maybePreviousCache exceptions project _ =
let
elmJsonCacheEntry : SimpleCacheEntryFor (Maybe Elm.Project.Project) moduleContext
elmJsonCacheEntry =
let
elmJson : Maybe Elm.Project.Project
elmJson =
Review.Project.elmJson project
|> Maybe.map .project
elmJsonCacheEntry : SimpleCacheEntryFor (Maybe Elm.Project.Project) moduleContext
elmJsonCacheEntry =
let
computeElmJson : () -> SimpleCacheEntryFor (Maybe Elm.Project.Project) moduleContext
computeElmJson () =
{ value = elmJson
, context =
schema.initialContext
|> accumulateContext schema.elmJsonVisitors (Review.Project.elmJson project |> Maybe.map .project)
|> accumulateContext schema.elmJsonVisitors elmJson
}
in
case maybePreviousCache of
@ -626,10 +627,35 @@ runModuleRule ((ModuleRuleSchema schema) as moduleRuleSchema) maybePreviousCache
Nothing ->
computeElmJson ()
readmeCacheEntry : SimpleCacheEntryFor (Maybe String) moduleContext
readmeCacheEntry =
let
readme : Maybe String
readme =
Review.Project.readme project |> Maybe.map .content
computeReadme : () -> SimpleCacheEntryFor (Maybe String) moduleContext
computeReadme () =
{ value = readme
, context =
elmJsonCacheEntry.context
|> accumulateContext schema.readmeVisitors readme
}
in
case maybePreviousCache of
Just previousCache ->
if previousCache.readme.value == readme && elmJsonCacheEntry.context == previousCache.elmJson.context then
previousCache.readme
else
computeReadme ()
Nothing ->
computeReadme ()
initialContext : moduleContext
initialContext =
elmJsonCacheEntry.context
|> accumulateContext schema.readmeVisitors (Review.Project.readme project |> Maybe.map .content)
readmeCacheEntry.context
|> accumulateContext schema.dependenciesVisitors (Review.Project.dependencies project)
newCache : ModuleRuleCache moduleContext
@ -642,12 +668,14 @@ runModuleRule ((ModuleRuleSchema schema) as moduleRuleSchema) maybePreviousCache
else
{ initialContext = initialContext
, elmJson = elmJsonCacheEntry
, readme = readmeCacheEntry
, moduleResults = Dict.empty
}
Nothing ->
{ initialContext = initialContext
, elmJson = elmJsonCacheEntry
, readme = readmeCacheEntry
, moduleResults = Dict.empty
}
@ -692,6 +720,7 @@ runModuleRule ((ModuleRuleSchema schema) as moduleRuleSchema) maybePreviousCache
(Just
{ initialContext = newCache.initialContext
, elmJson = elmJsonCacheEntry
, readme = readmeCacheEntry
, moduleResults = moduleResults
}
)