, TemplateHaskell
, UnicodeSyntax
#-}
-module Data.Time.RFC822.Internal
+module Data.Time.Format.RFC822.Internal
( RFC822
, rfc822DateAndTime
, rfc822Time
import Data.Tagged
import Data.Time
import Data.Time.Calendar.WeekDate
-import Data.Time.HTTP.Common
+import Data.Time.Format.HTTP.Common
import Prelude.Unicode
--- |FIXME: docs
+-- |The phantom type for conversions between RFC 822 date and time
+-- strings and 'ZonedTime'.
+--
+-- >>> convertSuccess (ZonedTime (LocalTime (ModifiedJulianDay 49662) (TimeOfDay 8 49 37)) utc)
+-- Tagged "Sun, 06 Nov 94 08:49:37 GMT"
data RFC822
instance ConvertSuccess ZonedTime (Tagged RFC822 Ascii) where