mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-10-26 16:10:55 +03:00
Use appropriate cssUsingFunction
This commit is contained in:
parent
cd9d1237e9
commit
2740b7b8eb
@ -198,21 +198,28 @@ fromLiteral node =
|
|||||||
Variable (Node.range node)
|
Variable (Node.range node)
|
||||||
|
|
||||||
|
|
||||||
reportClasses : ModuleContext -> Range -> String -> Node Expression -> f -> List (Rule.Error {})
|
reportClasses : ModuleContext -> Range -> String -> Node Expression -> List (Node Expression) -> List (Rule.Error {})
|
||||||
reportClasses context fnRange name firstArg restOfArguments =
|
reportClasses context fnRange name firstArg restOfArguments =
|
||||||
case ( ModuleNameLookupTable.moduleNameAt context.lookupTable fnRange, name ) of
|
case
|
||||||
( Just [ "Html", "Attributes" ], "class" ) ->
|
ModuleNameLookupTable.moduleNameAt context.lookupTable fnRange
|
||||||
case Node.value firstArg of
|
|> Maybe.andThen (\moduleName -> Dict.get ( moduleName, name ) cssFunctions)
|
||||||
Expression.Literal str ->
|
of
|
||||||
unknownClasses
|
Just cssFunction ->
|
||||||
context.knownClasses
|
cssFunction { firstArgument = firstArg, restOfArguments = restOfArguments }
|
||||||
(Node.range firstArg)
|
|> List.concatMap
|
||||||
str
|
(\arg ->
|
||||||
|
case arg of
|
||||||
|
Literal class ->
|
||||||
|
unknownClasses
|
||||||
|
context.knownClasses
|
||||||
|
(Node.range firstArg)
|
||||||
|
class
|
||||||
|
|
||||||
_ ->
|
Variable range ->
|
||||||
[]
|
Debug.todo "todo"
|
||||||
|
)
|
||||||
|
|
||||||
_ ->
|
Nothing ->
|
||||||
[]
|
[]
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user