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)
|
||||
|
||||
|
||||
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 =
|
||||
case ( ModuleNameLookupTable.moduleNameAt context.lookupTable fnRange, name ) of
|
||||
( Just [ "Html", "Attributes" ], "class" ) ->
|
||||
case Node.value firstArg of
|
||||
Expression.Literal str ->
|
||||
unknownClasses
|
||||
context.knownClasses
|
||||
(Node.range firstArg)
|
||||
str
|
||||
case
|
||||
ModuleNameLookupTable.moduleNameAt context.lookupTable fnRange
|
||||
|> Maybe.andThen (\moduleName -> Dict.get ( moduleName, name ) cssFunctions)
|
||||
of
|
||||
Just cssFunction ->
|
||||
cssFunction { firstArgument = firstArg, restOfArguments = restOfArguments }
|
||||
|> List.concatMap
|
||||
(\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