Tests for Data.Time.RFC733

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

diff --git a/Data/Time/RFC733/Internal.hs b/Data/Time/RFC733/Internal.hs
index 9258e65341bfbe02cfd46e3f5166169eade8eb96..4037918b7ff4409b1d3a5449e45260eb7560bfc1 100644 (file)
--- 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