From 8f414a69911e137f6856aa64b3604b7fe4c4d622 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 1 Oct 2014 14:11:57 +0300
Subject: [PATCH] Revert "yesod-test : Fix parsing of descendent selector in
 CSS query parser."

This reverts commit 58bf5223c0622fde90ac08ed678e6bd7f812bcbc.
---
 yesod-test/Yesod/Test/CssQuery.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod-test/Yesod/Test/CssQuery.hs b/yesod-test/Yesod/Test/CssQuery.hs
index d41f2073..af9146c8 100644
--- a/yesod-test/Yesod/Test/CssQuery.hs
+++ b/yesod-test/Yesod/Test/CssQuery.hs
@@ -60,10 +60,10 @@ directChildren :: Parser SelectorGroup
 directChildren = string "> " >> DirectChildren <$> parseSelectors
 
 deepChildren :: Parser SelectorGroup
-deepChildren = pOptionalTrailingSpace $ DeepChildren <$> parseSelectors
+deepChildren = DeepChildren <$> parseSelectors
 
 parseSelectors :: Parser [Selector]
-parseSelectors = many1 $
+parseSelectors = pOptionalTrailingSpace . many1 $
     parseId <|> parseClass <|> parseTag <|> parseAttr
 
 parseId :: Parser Selector
@@ -87,7 +87,7 @@ parseAttr = pSquare $ choice
 -- | pIdent : Parse an identifier (not yet supporting escapes and unicode as
 -- part of the identifier). Basically the regex: [-]?[_a-zA-Z][_a-zA-Z0-9]*
 pIdent :: Parser Text
-pIdent = do
+pIdent = pOptionalTrailingSpace $ do
     leadingMinus <- string "-" <|> pure ""
     nmstart <- T.singleton <$> satisfy (\c -> isAlpha c || c == '_')
     nmchar <- takeWhile (\c -> isAlphaNum c || c == '_')