X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Data%2FTime%2FRFC1123%2FParsec.hs;h=08c989c8f43dfbd1f57cc40b5c2e231f54f50108;hb=42ffc2dd3bba56145796d381e2570739c32d7d74;hp=f2176cf089a06f31e1f05204a0d659bfd88a47ed;hpb=269a28dfe8b08af854f7217bbe9c141c9c18f1ec;p=time-http.git

diff --git a/Data/Time/RFC1123/Parsec.hs b/Data/Time/RFC1123/Parsec.hs
index f2176cf..08c989c 100644
--- a/Data/Time/RFC1123/Parsec.hs
+++ b/Data/Time/RFC1123/Parsec.hs
@@ -12,7 +12,7 @@ import Data.Time.HTTP.Common
 import Data.Time.RFC822.Parsec
 import Text.Parsec
 
-
+-- |This is a parsec parser for RFC 1123 date and time strings.
 rfc1123DateAndTime :: Stream s m Char => ParsecT s u m ZonedTime
 rfc1123DateAndTime = dateTime
 
@@ -39,4 +39,4 @@ date = do day   <- read2
           _     <- char ' '
           year  <- read4
           _     <- char ' '
-          assertGregorianDateIsGood (toInteger year) month day
+          assertGregorianDateIsGood year month day