--- |This is a parsec parser for date and time formats allowed in
--- HTTP\/1.1 (RFC 2616).
-rfc2616DateAndTime :: Stream s m Char => ParsecT s u m UTCTime
-rfc2616DateAndTime
- = choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime
- , liftM zonedTimeToUTC $ try rfc733DateAndTime
- , liftM (localTimeToUTC utc) asctime
+-- |Parse a date and time string in any formats allowed by HTTP\/1.1
+-- (RFC 2616).
+httpDateAndTime ∷ Parser UTCTime
+httpDateAndTime
+ = choice [ zonedTimeToUTC <$> try RFC1123.rfc1123DateAndTime
+ , zonedTimeToUTC <$> try RFC733.rfc733DateAndTime
+ , localTimeToUTC utc <$> Asctime.asctime