X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC733%2FInternal.hs;h=4037918b7ff4409b1d3a5449e45260eb7560bfc1;hp=9258e65341bfbe02cfd46e3f5166169eade8eb96;hb=e7ac0839f2d4beb2fe79f903222e04e797a47dd4;hpb=c1ed8dad6fbdd59c75d047e481997a98e33c2535

diff --git a/Data/Time/RFC733/Internal.hs b/Data/Time/RFC733/Internal.hs
index 9258e65..4037918 100644
--- a/Data/Time/RFC733/Internal.hs
+++ b/Data/Time/RFC733/Internal.hs
@@ -16,6 +16,7 @@ import Data.Monoid.Unicode
 import Data.Time
 import Data.Time.Calendar.WeekDate
 import Data.Time.HTTP.Common
+import Data.Time.RFC822.Internal hiding (toAsciiBuilder)
 
 -- |Parse RFC 733 date and time strings.
 rfc733DateAndTime ∷ Parser ZonedTime
@@ -134,5 +135,5 @@ toAsciiBuilder zonedTime
         ⊕ show2 (todMin timeOfDay)
         ⊕ A.toAsciiBuilder ":"
         ⊕ show2 (floor (todSec timeOfDay) ∷ Int)
-        ⊕ A.toAsciiBuilder "-"
-        ⊕ show4digitsTZ timeZone
+        ⊕ A.toAsciiBuilder " "
+        ⊕ showRFC822TimeZone timeZone