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

diff --git a/Data/Time/HTTP.hs b/Data/Time/Format/HTTP.hs
similarity index 89%
rename from Data/Time/HTTP.hs
rename to Data/Time/Format/HTTP.hs
index 31d70e7..7e30cbf 100644
--- a/Data/Time/HTTP.hs
+++ b/Data/Time/Format/HTTP.hs
@@ -6,7 +6,8 @@
   , UnicodeSyntax
   #-}
 -- |This module provides functions to parse and format HTTP\/1.1 date
--- and time formats.
+-- and time strings
+-- (<http://tools.ietf.org/html/rfc2616#section-3.3>).
 --
 -- The HTTP\/1.1 specification (RFC 2616) says that HTTP\/1.1 clients
 -- and servers which parse the date value MUST accept all the
@@ -43,7 +44,7 @@
 -- > month        = "Jan" | "Feb" | "Mar" | "Apr"
 -- >              | "May" | "Jun" | "Jul" | "Aug"
 -- >              | "Sep" | "Oct" | "Nov" | "Dec"
-module Data.Time.HTTP
+module Data.Time.Format.HTTP
     ( HTTP
     , httpDateAndTime
     )
@@ -55,14 +56,18 @@ import Data.Attoparsec.Char8
 import Data.Convertible.Base
 import Data.Tagged
 import Data.Time
-import Data.Time.Asctime
-import Data.Time.RFC1123
-import Data.Time.RFC733
-import Data.Time.RFC822
-import Data.Time.HTTP.Common
+import Data.Time.Format.Asctime
+import Data.Time.Format.HTTP.Common
+import Data.Time.Format.RFC733
+import Data.Time.Format.RFC822
+import Data.Time.Format.RFC1123
 import Prelude.Unicode
 
--- |FIXME: doc
+-- |The phantom type for conversions between HTTP/1.1 date and time
+-- strings and 'UTCTime'.
+--
+-- >>> convertSuccess (UTCTime (ModifiedJulianDay 49662) 31777)
+-- Tagged "Sun, 06 Nov 1994 08:49:37 GMT"
 data HTTP
 
 instance ConvertSuccess UTCTime (Tagged HTTP Ascii) where