X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FW3CDateTime.hs;h=488cd2e08eabe75c3cd76750f10b3acaaa0c7166;hb=e3e30c2bfa341cef11754e3f4d90b03844ef74d1;hp=e0c1c1baa6369e61ce50d8f199a7a20409864fb9;hpb=a4b849476ee3a204ea91dee8f3fd235b0b33a10a;p=Rakka.git

diff --git a/Rakka/W3CDateTime.hs b/Rakka/W3CDateTime.hs
index e0c1c1b..488cd2e 100644
--- a/Rakka/W3CDateTime.hs
+++ b/Rakka/W3CDateTime.hs
@@ -77,11 +77,11 @@ w3cDateTime = do year <- liftM read (count 4 digit)
                  return zonedTime
     where
       time :: Parser (Int, Int, Double, Int)
-      time = do char 'T'
+      time = do _      <- char 'T'
                 hour   <- liftM read (count 2 digit)
-                char ':'
+                _      <- char ':'
                 min    <- liftM read (count 2 digit)
-                sec    <- option 0 $ do char ':'
+                sec    <- option 0 $ do _       <- char ':'
                                         secInt  <- count 2 digit
                                         secFrac <- option "" $ do c  <- char '.'
                                                                   cs <- many1 digit
@@ -93,7 +93,7 @@ w3cDateTime = do year <- liftM read (count 4 digit)
                                     <|>
                                     (char '-' >> return (-1))
                             h    <- liftM read (count 2 digit)
-                            char ':'
+                            _    <- char ':'
                             m    <- liftM read (count 2 digit)
                             return $ sign * h * 60 + m)
                 return (hour, min, sec, offMin)
\ No newline at end of file