X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC1123.hs;h=bf68f057704661b6b7b9617a6068761fff441213;hp=abb0a6d53e882eee4e70aaf27e3ea928a1cbce92;hb=7ed69912b457694657e70496f695685493abcab5;hpb=e90df736d33162bb7ade70cb6fe1372a28af62ff

diff --git a/Data/Time/RFC1123.hs b/Data/Time/RFC1123.hs
index abb0a6d..bf68f05 100644
--- a/Data/Time/RFC1123.hs
+++ b/Data/Time/RFC1123.hs
@@ -9,6 +9,7 @@ import qualified Text.Parsec as P
 import Data.Time
 import Data.Time.Calendar.WeekDate
 import Data.Time.HTTP.Common
+import Data.Time.RFC822 (showRFC822TimeZone)
 import Data.Time.RFC1123.Parsec
 
 {-
@@ -39,7 +40,7 @@ format zonedTime
                , ":"
                , show2 (floor (todSec timeOfDay))
                , " "
-               , show4digitsTZ timeZone
+               , showRFC822TimeZone timeZone
                ]
 
 parse :: String -> Maybe ZonedTime