X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FHTTP%2FParsec.hs;h=6ddca7e982cbdcf8d2b6ea2f81b5737e4808e444;hp=03bd54cb28aab975fc526fccafe8870538eb76ef;hb=ef4dedbd58f5a24f6a737a9e5d6a506c6d401f43;hpb=7ed69912b457694657e70496f695685493abcab5

diff --git a/Data/Time/HTTP/Parsec.hs b/Data/Time/HTTP/Parsec.hs
index 03bd54c..6ddca7e 100644
--- a/Data/Time/HTTP/Parsec.hs
+++ b/Data/Time/HTTP/Parsec.hs
@@ -11,10 +11,11 @@ import Data.Time.RFC733.Parsec
 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
              , liftM zonedTimeToUTC $ try rfc733DateAndTime
-             , liftM (localTimeToUTC utc) $ asctime
+             , liftM (localTimeToUTC utc) asctime
              ]