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

Try to make visits simpler

Browse Source
This commit is contained in:
Jeroen Engels 2017-01-08 11:04:56 +01:00
parent a491c97059
commit af030b9e7b
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Lint.elm
View File

@ -93,24 +93,20 @@ statementToVisitors node =
[]
visitAndAccumulate : LintRule context -> Visitor context -> ( List Error, context ) -> ( List Error, context )
visitAndAccumulate rule visitor ( errors, ctx ) =
visitor rule ctx
|> Tuple.mapFirst (\errors_ -> errors ++ errors_)
lintWithVisitors : List (Visitor context) -> LintRule context -> List Error
lintWithVisitors visitors rule =
let
( errors, _ ) =
List.foldl
(\visitor ( errors, ctx ) ->
let
( errors_, ctx_ ) =
visitor rule ctx
in
( errors ++ errors_, ctx_ )
)
( [], rule.context )
visitors
in
errors
visitors
|> List.foldl (visitAndAccumulate rule) ( [], rule.context )
|> Tuple.first
lint : List Statement -> LintRule context -> List Error
lint statements =
lintWithVisitors (List.concatMap statementToVisitors statements)
List.concatMap statementToVisitors statements
|> lintWithVisitors