X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC822.hs;fp=Data%2FTime%2FRFC822.hs;h=1352e6d58428e12c760cda253de160db92956590;hp=8feeb764e1b2c0b6ed05c1178436061240caeeb1;hb=7ed69912b457694657e70496f695685493abcab5;hpb=e90df736d33162bb7ade70cb6fe1372a28af62ff

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index 8feeb76..1352e6d 100644
--- a/Data/Time/RFC822.hs
+++ b/Data/Time/RFC822.hs
@@ -1,6 +1,9 @@
 module Data.Time.RFC822
     ( format
     , parse
+
+    -- private
+    , showRFC822TimeZone
     )
     where
 
@@ -66,9 +69,14 @@ format zonedTime
                , ":"
                , show2 (floor (todSec timeOfDay))
                , " "
-               , show4digitsTZ timeZone
+               , showRFC822TimeZone timeZone
                ]
 
+showRFC822TimeZone :: TimeZone -> String
+showRFC822TimeZone tz
+    | timeZoneMinutes tz == 0 = "GMT"
+    | otherwise               = show4digitsTZ tz
+
 parse :: String -> Maybe ZonedTime
 parse src = case P.parse p "" src of
               Right zt -> Just zt