RFC1123

[time-http.git] / Data / Time / RFC822.hs

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index a5c1a0bd97713e68f3420756b14dea3c2d18ba89..df6527cb2372fc38ce0c20e82d506dbece32f28b 100644 (file)
--- a/Data/Time/RFC822.hs
+++ b/Data/Time/RFC822.hs
@@ -63,10 +63,12 @@ instance ConvertSuccess ZonedTime (Tagged RFC822 AsciiBuilder) where
     {-# INLINE convertSuccess #-}
     convertSuccess = Tagged ∘ toAsciiBuilder
 
+-- |FIXME: move this to RFC822.Internal
 instance ConvertSuccess TimeZone (Tagged RFC822 Ascii) where
     {-# INLINE convertSuccess #-}
     convertSuccess = (A.fromAsciiBuilder <$>) ∘ cs
 
+-- |FIXME: move this to RFC822.Internal
 instance ConvertSuccess TimeZone (Tagged RFC822 AsciiBuilder) where
     {-# INLINE convertSuccess #-}
     convertSuccess tz
@@ -106,7 +108,7 @@ date = do day   ← read2
           _     ← char ' '
           assertGregorianDateIsGood year month day
 
--- |Parse the time and time zone of an RFC 822 date and time string.
+-- |FIXME: move this to RFC822.Internal
 rfc822Time ∷ Parser (TimeOfDay, TimeZone)
 rfc822Time = do tod ← hms
                 _   ← char ' '