rfc2616DateAndTime :: Stream s m Char => ParsecT s u m UTCTime
rfc2616DateAndTime
= choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime
rfc2616DateAndTime :: Stream s m Char => ParsecT s u m UTCTime
rfc2616DateAndTime
= choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime