Resurrection from bitrot

[Rakka.git] / Rakka / W3CDateTime.hs

diff --git a/Rakka/W3CDateTime.hs b/Rakka/W3CDateTime.hs
index 595d228aee22db29c63951c95af21bf91113145e..4ec4738113b5e0d354349611d57c7648d3361df0 100644 (file)
--- a/Rakka/W3CDateTime.hs
+++ b/Rakka/W3CDateTime.hs
@@ -1,9 +1,9 @@
+-- FIXME: use time-w3c
 module Rakka.W3CDateTime
     ( formatW3CDateTime
     , parseW3CDateTime
     )
     where
-
 import           Control.Monad
 import           Data.Time
 import           Prelude hiding (min)
@@ -29,7 +29,7 @@ formatW3CDateTime zonedTime
                      day
                      (todHour timeOfDay)
                      (todMin timeOfDay)
-                     (secInt :: Int))
+                     (secInt :: Int)
               ++
               (if secFrac == 0
                then ""
@@ -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