Rename modules

[time-http.git] / Data / Time / Format / RFC1123.hs

diff --git a/Data/Time/RFC1123.hs b/Data/Time/Format/RFC1123.hs
similarity index 88%
rename from Data/Time/RFC1123.hs
rename to Data/Time/Format/RFC1123.hs
index cab3fb1f281e0584dbff583b6c12f27131cb728e..970dff1bf434b47487ea87a248fb47b57c223bc6 100644 (file)
--- a/Data/Time/RFC1123.hs
+++ b/Data/Time/Format/RFC1123.hs
@@ -6,7 +6,7 @@
   , UnicodeSyntax
   #-}
 -- |This module provides functions to parse and format RFC 1123 date
   , UnicodeSyntax
   #-}
 -- |This module provides functions to parse and format RFC 1123 date

--- and time formats.
+-- and time strings (<http://tools.ietf.org/html/rfc1123#page-55>).

 --
 -- The format is basically same as RFC 822, but the syntax for @date@
 -- is changed from:
 --
 -- The format is basically same as RFC 822, but the syntax for @date@
 -- is changed from:


@@ -16,7 +16,7 @@
 -- to:
 --
 -- > year ::= 4DIGIT
 -- to:
 --
 -- > year ::= 4DIGIT

-module Data.Time.RFC1123
+module Data.Time.Format.RFC1123

     ( RFC1123
     , rfc1123DateAndTime
     )
     ( RFC1123
     , rfc1123DateAndTime
     )


@@ -30,11 +30,15 @@ import Data.Monoid.Unicode
 import Data.Tagged
 import Data.Time
 import Data.Time.Calendar.WeekDate
 import Data.Tagged
 import Data.Time
 import Data.Time.Calendar.WeekDate

-import Data.Time.HTTP.Common
-import Data.Time.RFC822.Internal
+import Data.Time.Format.HTTP.Common
+import Data.Time.Format.RFC822.Internal

 import Prelude.Unicode
 
 import Prelude.Unicode
 

--- FIXME: doc
+-- |The phantom type for conversions between RFC 1123 date and time
+-- strings and 'ZonedTime'.
+--
+-- >>> convertSuccess (ZonedTime (LocalTime (ModifiedJulianDay 49662) (TimeOfDay 8 49 37)) utc)
+-- Tagged "Sun, 06 Nov 1994 08:49:37 GMT"

 data RFC1123
 
 instance ConvertSuccess ZonedTime (Tagged RFC1123 Ascii) where
 data RFC1123
 
 instance ConvertSuccess ZonedTime (Tagged RFC1123 Ascii) where