@@ 34,5 34,8 @@ lowerSelector rewrites (Sibling sib sel') = Sibling sib $ lowerSelector' rewrite
lowerSelector' :: HashMap Text [Token] -> [SimpleSelector] -> [SimpleSelector]
lowerSelector' rewrites (Psuedoclass name []:sels)
| Just value <- name `HM.lookup` rewrites = Psuedoclass "where" value : lowerSelector' rewrites sels
+lowerSelector' rewrites (Psuedoclass name [arg]:sels)
+ | Just value <- name `HM.lookup` rewrites =
+ Psuedoclass "where" [if a == Ident "_" then arg else a | a <- value] : lowerSelector' rewrites sels
lowerSelector' rewrites (sel:sels) = sel : lowerSelector' rewrites sels
lowerSelector' _ [] = []