Fix some warnings

2012-03-29 08:44:01 +02:00 · 2012-03-29 08:44:01 +02:00 · 7c65829f03
commit 7c65829f03
parent 6e17c1ae17
1 changed files with 2 additions and 2 deletions
--- 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]