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

Remove unused function

Browse Source
This commit is contained in:
Jeroen Engels 2021-10-27 16:56:00 +02:00
parent 0fb0a5a368
commit 53af68a551
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Review/Rule.elm
View File

@ -1319,7 +1319,7 @@ fromModuleRuleSchemaToRunnableModuleVisitor (ModuleRuleSchema schema) =
let let
declarationAndExpressionVisitor : List (Node Declaration) -> ( List (Error {}), moduleContext ) -> ( List (Error {}), moduleContext ) declarationAndExpressionVisitor : List (Node Declaration) -> ( List (Error {}), moduleContext ) -> ( List (Error {}), moduleContext )
declarationAndExpressionVisitor = declarationAndExpressionVisitor =
if shouldVisitDeclarationsAndExpressions2 schema then if shouldVisitDeclarationsAndExpressions schema then
accumulateList accumulateList
(visitDeclaration (visitDeclaration
(List.reverse schema.declarationVisitorsOnEnter) (List.reverse schema.declarationVisitorsOnEnter)
@ -4365,7 +4365,7 @@ visitModuleForProjectRule schema initialContext module_ =
|> (\( errors, moduleContext ) -> ( makeFinalEvaluation schema.finalEvaluationFns ( errors, moduleContext ), moduleContext )) |> (\( errors, moduleContext ) -> ( makeFinalEvaluation schema.finalEvaluationFns ( errors, moduleContext ), moduleContext ))
shouldVisitDeclarationsAndExpressions : RunnableModuleVisitor moduleContext -> Bool shouldVisitDeclarationsAndExpressions : ModuleRuleSchemaData moduleContext -> Bool
shouldVisitDeclarationsAndExpressions schema = shouldVisitDeclarationsAndExpressions schema =
not (List.isEmpty schema.declarationVisitorsOnEnter) not (List.isEmpty schema.declarationVisitorsOnEnter)
|| not (List.isEmpty schema.declarationVisitorsOnExit) || not (List.isEmpty schema.declarationVisitorsOnExit)
@ -4377,18 +4377,6 @@ shouldVisitDeclarationsAndExpressions schema =
|| not (List.isEmpty schema.caseBranchVisitorsOnExit) || not (List.isEmpty schema.caseBranchVisitorsOnExit)
shouldVisitDeclarationsAndExpressions2 : ModuleRuleSchemaData moduleContext -> Bool
shouldVisitDeclarationsAndExpressions2 schema =
not (List.isEmpty schema.declarationVisitorsOnEnter)
|| not (List.isEmpty schema.declarationVisitorsOnExit)
|| not (List.isEmpty schema.expressionVisitorsOnEnter)
|| not (List.isEmpty schema.expressionVisitorsOnExit)
|| not (List.isEmpty schema.letDeclarationVisitorsOnEnter)
|| not (List.isEmpty schema.letDeclarationVisitorsOnExit)
|| not (List.isEmpty schema.caseBranchVisitorsOnEnter)
|| not (List.isEmpty schema.caseBranchVisitorsOnExit)
type alias ExpressionRelatedVisitors moduleContext = type alias ExpressionRelatedVisitors moduleContext =
{ expressionVisitorsOnEnter : List (Visitor Expression moduleContext) { expressionVisitorsOnEnter : List (Visitor Expression moduleContext)
, expressionVisitorsOnExit : List (Visitor Expression moduleContext) , expressionVisitorsOnExit : List (Visitor Expression moduleContext)