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

Add lookup table

Browse Source
This commit is contained in:
Jeroen Engels 2024-05-07 23:17:36 +02:00
parent 6a9fe48b1f
commit 1a9a6771ae
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/Css/NoUnusedClasses.elm
View File

@ -8,6 +8,7 @@ import Elm.Syntax.Node as Node exposing (Node)
import Elm.Syntax.Range exposing (Range)
import Regex exposing (Regex)
import Review.FilePattern as FilePattern exposing (FilePattern)
import Review.ModuleNameLookupTable exposing (ModuleNameLookupTable)
import Review.Rule as Rule exposing (Rule)
import Set exposing (Set)
@ -79,7 +80,8 @@ type alias ProjectContext =
type alias ModuleContext =
{ usedCssClasses : Set String
{ lookupTable : ModuleNameLookupTable
, usedCssClasses : Set String
}
@ -92,7 +94,13 @@ initialProjectContext =
fromProjectToModule : Rule.ContextCreator ProjectContext ModuleContext
fromProjectToModule =
Rule.initContextCreator (\_ -> { usedCssClasses = Set.empty })
Rule.initContextCreator
(\lookupTable _ ->
{ lookupTable = lookupTable
, usedCssClasses = Set.empty
}
)
|> Rule.withModuleNameLookupTable
fromModuleToProject : Rule.ContextCreator ModuleContext ProjectContext