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

diff --git a/Data/Time/RFC1123/Parsec.hs b/Data/Time/RFC1123/Parsec.hs
index f2176cf..ccdf0bf 100644
--- a/Data/Time/RFC1123/Parsec.hs
+++ b/Data/Time/RFC1123/Parsec.hs
@@ -39,4 +39,4 @@ date = do day   <- read2
           _     <- char ' '
           year  <- read4
           _     <- char ' '
-          assertGregorianDateIsGood (toInteger year) month day
+          assertGregorianDateIsGood year month day