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
<|>
(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