X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FRFC1123DateTime.hs;h=bc2c5901233bd8679955e7aff0e4c3a38cc7b009;hp=f86b2b1111dd206e965eff7f59edd87569c52cc4;hb=9ac730212cb361eb10e5fe4ad0eec6758e2b200a;hpb=105aec5e11818a08bdc964cf93856e0ff95768ac

diff --git a/Network/HTTP/Lucu/RFC1123DateTime.hs b/Network/HTTP/Lucu/RFC1123DateTime.hs
index f86b2b1..bc2c590 100644
--- 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)