-{-# OPTIONS_HADDOCK prune #-}
-
-- |This module provides functions to parse and format RFC 822 date
-- and time formats.
--
, 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
, showRFC822TimeZone timeZone
]
+-- private
showRFC822TimeZone :: TimeZone -> String
showRFC822TimeZone tz
| timeZoneMinutes tz == 0 = "GMT"