X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC822%2FParsec.hs;h=5d73ca8907a9406d4399b840699cdae1ec1d902f;hp=0c6762e6a679fee91368e20dca4996d4ca1ac2f2;hb=e90df736d33162bb7ade70cb6fe1372a28af62ff;hpb=269a28dfe8b08af854f7217bbe9c141c9c18f1ec

diff --git a/Data/Time/RFC822/Parsec.hs b/Data/Time/RFC822/Parsec.hs
index 0c6762e..5d73ca8 100644
--- a/Data/Time/RFC822/Parsec.hs
+++ b/Data/Time/RFC822/Parsec.hs
@@ -41,7 +41,7 @@ date = do day   <- read2
           _     <- char ' '
           year  <- liftM (+ 1900) read2
           _     <- char ' '
-          assertGregorianDateIsGood (toInteger year) month day
+          assertGregorianDateIsGood year month day
 
 rfc822time :: Stream s m Char => ParsecT s u m (TimeOfDay, TimeZone)
 rfc822time = do tod <- hour