Rename modules

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

diff --git a/Data/Time/RFC733.hs b/Data/Time/Format/RFC733.hs
similarity index 94%
rename from Data/Time/RFC733.hs
rename to Data/Time/Format/RFC733.hs
index 53a0b1e779d3d9a6123c825e1e1be28525cf4987..e800310e77976905298800e28c2ff8ae6699e5aa 100644 (file)
--- a/Data/Time/RFC733.hs
+++ b/Data/Time/Format/RFC733.hs
@@ -6,7 +6,7 @@
   , UnicodeSyntax
   #-}
 -- |This module provides functions to parse and format RFC 733 date
--- and time formats.
+-- and time strings (<http://tools.ietf.org/html/rfc733#appendix-E>).
 --
 -- The syntax is as follows:
 --
@@ -44,7 +44,7 @@
 -- >               | "N"                ;  +1
 -- >               | "Y"                ; +12
 -- >               | ("+" | "-") 4DIGIT ; Local diff: HHMM
-module Data.Time.RFC733
+module Data.Time.Format.RFC733
     ( RFC733
     , rfc733DateAndTime
     )
@@ -58,11 +58,15 @@ import Data.Monoid.Unicode
 import Data.Tagged
 import Data.Time
 import Data.Time.Calendar.WeekDate
-import Data.Time.RFC822.Internal
-import Data.Time.HTTP.Common
+import Data.Time.Format.HTTP.Common
+import Data.Time.Format.RFC822.Internal
 import Prelude.Unicode
 
--- FIXME: docs
+-- |The phantom type for conversions between RFC 733 date and time
+-- strings and 'ZonedTime'.
+--
+-- >>> convertSuccess (ZonedTime (LocalTime (ModifiedJulianDay 49662) (TimeOfDay 8 49 37)) utc)
+-- Tagged "Sunday, 06-Nov-1994 08:49:37 GMT"
 data RFC733
 
 instance ConvertSuccess ZonedTime (Tagged RFC733 Ascii) where
@@ -77,6 +81,7 @@ instance ConvertAttempt (Tagged RFC733 Ascii) ZonedTime where
     {-# INLINE convertAttempt #-}
     convertAttempt = parseAttempt' rfc733DateAndTime ∘ untag
 
+-- |Parse an RFC 733 date and time string.
 rfc733DateAndTime ∷ Parser ZonedTime
 rfc733DateAndTime = dateTime