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

Only pass range

Browse Source
This commit is contained in:
Jeroen Engels 2024-03-19 22:56:13 +01:00
parent 7dab184c00
commit be2be4fb3d
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/NoUnknownCssClasses.elm
View File

@ -142,8 +142,7 @@ expressionVisitor node context =
Expression.Literal str ->
( unknownClasses
context.knownClasses
(Node.range firstArg).start.row
(Node.range firstArg).start.column
(Node.range firstArg)
str
, context
)
@ -167,8 +166,12 @@ reportError range name =
range
unknownClasses : Set String -> Int -> Int -> String -> List (Rule.Error {})
unknownClasses knownClasses row startColumn str =
unknownClasses : Set String -> Range -> String -> List (Rule.Error {})
unknownClasses knownClasses range str =
let
{ row, column } =
range.start
in
List.foldl
(\class ( offset, errors ) ->
let
@ -179,8 +182,8 @@ unknownClasses knownClasses row startColumn str =
else
reportError
{ start = { row = row, column = startColumn + offset }
, end = { row = row, column = startColumn + offset + String.length class }
{ start = { row = row, column = column + offset }
, end = { row = row, column = column + offset + String.length class }
}
class
:: errors