diff --git a/yesod-test/Yesod/Test/CssQuery.hs b/yesod-test/Yesod/Test/CssQuery.hs
index 83b8a504..1cf496be 100644
--- a/yesod-test/Yesod/Test/CssQuery.hs
+++ b/yesod-test/Yesod/Test/CssQuery.hs
@@ -51,13 +51,13 @@ directChildren = do
   _ <- char '>'
   _ <- char ' '
   sels <- selectors
-  optional $ char ' '
+  _ <- optional $ char ' '
   return $ DirectChildren sels
 
 deepChildren :: Parser SelectorGroup
 deepChildren = do 
   sels <- selectors
-  optional $ char ' '
+  _ <- optional $ char ' '
   return $ DeepChildren sels
   
 selectors :: Parser [Selector]