X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC822.hs;fp=Data%2FTime%2FRFC822.hs;h=df6527cb2372fc38ce0c20e82d506dbece32f28b;hp=a5c1a0bd97713e68f3420756b14dea3c2d18ba89;hb=dac3f355097e647637a52dfa8dad43bbc5d589fa;hpb=2371481fd02415a8a99297679c003b8c70be4f8b

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index a5c1a0b..df6527c 100644
--- 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 ' '