1 {-# LANGUAGE FlexibleContexts #-}
2 module Data.Time.HTTP.Parsec
9 import Data.Time.RFC1123.Parsec
10 import Data.Time.RFC733.Parsec
11 import Data.Time.Asctime.Parsec
15 rfc2616DateAndTime :: Stream s m Char => ParsecT s u m UTCTime
17 = choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime
18 , liftM zonedTimeToUTC $ try rfc733DateAndTime
19 , liftM (localTimeToUTC utc) $ asctime