X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC733%2FParsec.hs;h=6746a3ed5ec8c4545e5fc018e03eff3ea60ccc6c;hp=996c94e51ee803fcbafaa56258b5192a6e140b9f;hb=e90df736d33162bb7ade70cb6fe1372a28af62ff;hpb=269a28dfe8b08af854f7217bbe9c141c9c18f1ec

diff --git a/Data/Time/RFC733/Parsec.hs b/Data/Time/RFC733/Parsec.hs
index 996c94e..6746a3e 100644
--- a/Data/Time/RFC733/Parsec.hs
+++ b/Data/Time/RFC733/Parsec.hs
@@ -44,7 +44,7 @@ date = do day   <- read2
                    <|>
                    liftM (+ 1900) read2
           _     <- char ' '
-          assertGregorianDateIsGood (toInteger year) month day
+          assertGregorianDateIsGood year month day
 
 time :: Stream s m Char => ParsecT s u m (TimeOfDay, TimeZone)
 time = do tod <- hour