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

diff --git a/Data/Time/RFC822/Parsec.hs b/Data/Time/RFC822/Parsec.hs
index 0c6762e..0ab2985 100644
--- a/Data/Time/RFC822/Parsec.hs
+++ b/Data/Time/RFC822/Parsec.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE FlexibleContexts #-}
+{-# OPTIONS_HADDOCK prune     #-}
+
 module Data.Time.RFC822.Parsec
     ( rfc822DateAndTime
 
@@ -14,7 +16,7 @@ import Data.Time.Calendar.WeekDate
 import Data.Time.HTTP.Common
 import Text.Parsec
 
-
+-- |This is a parsec parser for RFC 822 date and time strings.
 rfc822DateAndTime :: Stream s m Char => ParsecT s u m ZonedTime
 rfc822DateAndTime = dateTime
 
@@ -41,7 +43,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