update ChangeLog.md

Author: ix

yesod-test/ChangeLog.md

@@ -1,5 +1,9 @@
 # ChangeLog for yesod-test
 
+## 1.6.24
+
+* Add CSS Level 3 structural pseudo-class support for `:nth-child`, `:first-child`, `:last-child` to yesod-test. [#1878](https://github.com/yesodweb/yesod/pull/1878)
+
 ## 1.6.23.1
 
 * Set `base >= 4.11` for less CPP and imports [#1876](https://github.com/yesodweb/yesod/pull/1876)

yesod-test/Yesod/Test/CssQuery.hs

@@ -78,7 +78,7 @@ parseQuery = parseOnly cssQuery
 
 -- Below this line is the Parsec parser for css queries.
 cssQuery :: Parser [[SelectorGroup]]
-cssQuery = (many (char ' ') >> sepBy rules (char ',' >> many (char ' ')))
+cssQuery = many (char ' ') >> sepBy rules (char ',' >> many (char ' '))
 
 rules :: Parser [SelectorGroup]
 rules = many $ directChildren <|> deepChildren
@@ -135,8 +135,14 @@ pArg = char '(' *> spaceSurrounded pANPlusB <* char ')'
 pANPlusB :: Parser ANPlusB 
 pANPlusB = choice [repetition, position, fixed]
   where repetition = Repetition
-          <$> option 1 (choice [char '-' *> fmap negate decimal, char '-' >> pure (-1), decimal]) <* char 'n'
-          <*> option 0 (choice [spaceSurrounded (char '+') *> decimal, spaceSurrounded (char '-') *> fmap negate decimal])
+          <$> option 1
+            ( choice [char '-' *> fmap negate decimal
+            , char '-' >> pure (-1), decimal]
+            ) <* char 'n'
+          <*> option 0 
+            ( choice [spaceSurrounded (char '+') *> decimal
+            , spaceSurrounded (char '-') *> fmap negate decimal]
+            )
         position = Position <$> decimal
         fixed = choice
           [ string "odd" >> pure Odd