RFC822

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

diff --git a/Data/Time/RFC733.hs b/Data/Time/RFC733.hs
index e6981afe31ab2eec7dac999831b5d7ec244e13dd..a6eb286117366eb9bd0b387f2b3fda165a79fc60 100644 (file)
--- 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 |])