_ <- char ' '
year <- liftM (+ 1900) read2
_ <- char ' '
- assertGregorianDateIsGood (toInteger year) month day
+ assertGregorianDateIsGood year month day
rfc822time :: Stream s m Char => ParsecT s u m (TimeOfDay, TimeZone)
rfc822time = do tod <- hour