Asctime

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

diff --git a/Data/Time/RFC1123/Parsec.hs b/Data/Time/RFC1123/Parsec.hs
index f2176cf089a06f31e1f05204a0d659bfd88a47ed..ccdf0bf88873fe949e6e870b5ef14462ad71eb89 100644 (file)
--- 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