1 files changed, 6 insertions(+), 6 deletions(-)

M src/Data/CSS/Style/Selector/Interpret.hs

@@ 34,14 34,14 @@ compile (Sibling up sel) = indirect previous (compile up) $ compileInner sel
 compileInner :: [SimpleSelector] -> SelectorFunc
 compileInner sel = compileInner' $ lowerInner sel
 compileInner' :: ([IL], [(Text, Maybe Text, String -> Bool)]) -> SelectorFunc
-compileInner' ((Tagname tag:tests), attrs) = testTag tag $ compileInner' (tests, attrs)
-compileInner' ((NS ns:tests), attrs) = testNS ns $ compileInner' (tests, attrs)
-compileInner' ((Fail:_), _) = \_ -> False
-compileInner' ((Recursive negate' sels:tests), attrs) =
+compileInner' (Tagname tag:tests, attrs) = testTag tag $ compileInner' (tests, attrs)
+compileInner' (NS ns:tests, attrs) = testNS ns $ compileInner' (tests, attrs)
+compileInner' (Fail:_, _) = \_ -> False
+compileInner' (Recursive negate' sels:tests, attrs) =
     recursiveSelect negate' (map compile sels) $ compileInner' (tests, attrs)
-compileInner' ((Nth ofType n 0:tests), attrs) =
+compileInner' (Nth ofType n 0:tests, attrs) =
     nthChild ofType (fromInteger n) $ compileInner' (tests, attrs)
-compileInner' ((Nth ofType a b:tests), attrs) =
+compileInner' (Nth ofType a b:tests, attrs) =
     nthChild' ofType (fromInteger a) (fromInteger b) $ compileInner' (tests, attrs)
 compileInner' (Root:tests, attrs) = testRoot $ compileInner' (tests, attrs)
 compileInner' ([], attrs) = testAttrs (compileAttrs $ sortAttrs attrs) matched