X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FHTTP%2FParsec.hs;h=117837efdc8ed119e565d21012b1e8592d54f606;hp=03bd54cb28aab975fc526fccafe8870538eb76ef;hb=469170632eee26999634929f964d9cc71e068bf3;hpb=c6072393ea3d4d19639f410d2010b4815baad9e7

diff --git a/Data/Time/HTTP/Parsec.hs b/Data/Time/HTTP/Parsec.hs
index 03bd54c..117837e 100644
--- a/Data/Time/HTTP/Parsec.hs
+++ b/Data/Time/HTTP/Parsec.hs
@@ -11,7 +11,8 @@ 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