From 7c65829f03e37f42129d987bba6db7620000c0c5 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 29 Mar 2012 08:44:01 +0200
Subject: [PATCH] Fix some warnings

---
 yesod-test/Yesod/Test/CssQuery.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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]