Asctime

[time-http.git] / Data / Time / RFC822 / Parsec.hs

diff --git a/Data/Time/RFC822/Parsec.hs b/Data/Time/RFC822/Parsec.hs
index 0c6762e6a679fee91368e20dca4996d4ca1ac2f2..5d73ca8907a9406d4399b840699cdae1ec1d902f 100644 (file)
--- 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 ' '
           _     <- 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
 
 rfc822time :: Stream s m Char => ParsecT s u m (TimeOfDay, TimeZone)
 rfc822time = do tod <- hour