HTTP

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

diff --git a/Data/Time/RFC1123.hs b/Data/Time/RFC1123.hs
index abb0a6d53e882eee4e70aaf27e3ea928a1cbce92..bf68f057704661b6b7b9617a6068761fff441213 100644 (file)
--- 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