import Data.Time.Asctime.Parsec
import Text.Parsec
-
+-- |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