X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC733.hs;fp=Data%2FTime%2FRFC733.hs;h=a6eb286117366eb9bd0b387f2b3fda165a79fc60;hp=e6981afe31ab2eec7dac999831b5d7ec244e13dd;hb=2371481fd02415a8a99297679c003b8c70be4f8b;hpb=02b5cc7bb95b32a2034afac3e918ff610c05f337

diff --git a/Data/Time/RFC733.hs b/Data/Time/RFC733.hs
index e6981af..a6eb286 100644
--- a/Data/Time/RFC733.hs
+++ b/Data/Time/RFC733.hs
@@ -58,7 +58,7 @@ import Data.Monoid.Unicode
 import Data.Tagged
 import Data.Time
 import Data.Time.Calendar.WeekDate
-import Data.Time.RFC822.Internal hiding (toAsciiBuilder)
+import Data.Time.RFC822
 import Data.Time.HTTP.Common
 import Prelude.Unicode
 
@@ -193,7 +193,7 @@ toAsciiBuilder zonedTime
         ⊕ A.toAsciiBuilder ":"
         ⊕ show2 (floor (todSec timeOfDay) ∷ Int)
         ⊕ A.toAsciiBuilder " "
-        ⊕ showRFC822TimeZone timeZone
+        ⊕ untag (cs timeZone ∷ Tagged RFC822 AsciiBuilder)
 
 deriveAttempts [ ([t| ZonedTime |], [t| Tagged RFC733 Ascii        |])
                , ([t| ZonedTime |], [t| Tagged RFC733 AsciiBuilder |])