import Data.Time.RFC822.Parsec
import Text.Parsec
-
+-- |This is a parsec parser for RFC 1123 date and time strings.
rfc1123DateAndTime :: Stream s m Char => ParsecT s u m ZonedTime
rfc1123DateAndTime = dateTime
_ <- char ' '
year <- read4
_ <- char ' '
- assertGregorianDateIsGood (toInteger year) month day
+ assertGregorianDateIsGood year month day