X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FFormat%2FRFC822%2FInternal.hs;fp=Data%2FTime%2FRFC822%2FInternal.hs;h=d1f62d2c3b5d330a0bcc6b4430b7e9de8d7eef65;hp=4fd701ae29e8b7244ca6bcfa3ed76d14314e5365;hb=91c2402d530afff7f1fd4eee333f84cbe18d1014;hpb=7fd4893fdd44f360647fa99c7f96ed96d2f7bac4

diff --git a/Data/Time/RFC822/Internal.hs b/Data/Time/Format/RFC822/Internal.hs
similarity index 94%
rename from Data/Time/RFC822/Internal.hs
rename to Data/Time/Format/RFC822/Internal.hs
index 4fd701a..d1f62d2 100644
--- a/Data/Time/RFC822/Internal.hs
+++ b/Data/Time/Format/RFC822/Internal.hs
@@ -5,7 +5,7 @@
   , TemplateHaskell
   , UnicodeSyntax
   #-}
-module Data.Time.RFC822.Internal
+module Data.Time.Format.RFC822.Internal
     ( RFC822
     , rfc822DateAndTime
     , rfc822Time
@@ -20,10 +20,14 @@ import Data.Monoid.Unicode
 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