Suppress unused-do-bind warnings which GHC 6.12.1 emits

[Lucu.git] / Network / HTTP / Lucu / RFC1123DateTime.hs

diff --git a/Network/HTTP/Lucu/RFC1123DateTime.hs b/Network/HTTP/Lucu/RFC1123DateTime.hs
index f86b2b1111dd206e965eff7f59edd87569c52cc4..bc2c5901233bd8679955e7aff0e4c3a38cc7b009 100644 (file)
--- a/Network/HTTP/Lucu/RFC1123DateTime.hs
+++ b/Network/HTTP/Lucu/RFC1123DateTime.hs
@@ -82,22 +82,22 @@ parseHTTPDateTime src
 
 
 httpDateTime :: Parser UTCTime
-httpDateTime = do foldl (<|>) failP (map string weekStr)
-                  char ','
-                  char ' '
+httpDateTime = do _    <- foldl (<|>) failP (map string weekStr)
+                  _    <- char ','
+                  _    <- char ' '
                   day  <- liftM read (count 2 digit)
-                  char ' '
+                  _    <- char ' '
                   mon  <- foldl (<|>) failP (map tryEqToFst (zip monthStr [1..]))
-                  char ' '
+                  _    <- char ' '
                   year <- liftM read (count 4 digit)
-                  char ' '
+                  _    <- char ' '
                   hour <- liftM read (count 2 digit)
-                  char ':'
+                  _    <- char ':'
                   min  <- liftM read (count 2 digit)
-                  char ':'
+                  _    <- char ':'
                   sec  <- liftM read (count 2 digit) :: Parser Int
-                  char ' '
-                  string "GMT"
+                  _    <- char ' '
+                  _    <- string "GMT"
                   eof
                   let julianDay = fromGregorian year mon day
                       timeOfDay = TimeOfDay hour min (fromIntegral sec)