X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Data%2FTime%2FRFC822.hs;h=5d4b862c760aadb1508e7e448a5cb85242e45a7d;hb=82afb594c5b4254385435491700befcbea185a5d;hp=4c8e333d6f294d2435a6a2db46338ec16e969001;hpb=42ffc2dd3bba56145796d381e2570739c32d7d74;p=time-http.git

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index 4c8e333..5d4b862 100644
--- a/Data/Time/RFC822.hs
+++ b/Data/Time/RFC822.hs
@@ -1,5 +1,3 @@
-{-# OPTIONS_HADDOCK prune #-}
-
 -- |This module provides functions to parse and format RFC 822 date
 -- and time formats.
 --
@@ -37,13 +35,10 @@ module Data.Time.RFC822
     , showRFC822TimeZone
     )
     where
-
-import qualified Text.Parsec as P
-
 import Data.Time
 import Data.Time.Calendar.WeekDate
 import Data.Time.HTTP.Common
-import Data.Time.RFC822.Parsec
+import Data.Time.RFC822.Internal
 
 -- |Format a 'ZonedTime' in RFC 822.
 format :: ZonedTime -> String
@@ -71,6 +66,7 @@ format zonedTime
                , showRFC822TimeZone timeZone
                ]
 
+-- private
 showRFC822TimeZone :: TimeZone -> String
 showRFC822TimeZone tz
     | timeZoneMinutes tz == 0 = "GMT"