From 48390f5f9080b32298de69640004432e49645bd7 Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Fri, 8 May 2020 19:59:37 +1200 Subject: [PATCH] Codestyle: remove unnecessary parens. --- src/Data/CSS/Style/Selector/Interpret.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Data/CSS/Style/Selector/Interpret.hs b/src/Data/CSS/Style/Selector/Interpret.hs index 8f4e71d..b165681 100644 --- a/src/Data/CSS/Style/Selector/Interpret.hs +++ b/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 -- 2.30.2