X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FRFC822.hs;h=fa4f8efe7d532046dae63901884f54110f43751a;hp=4b3d91cf8799714e45eb15c1dfe16e5b77c72d22;hb=01d923fe509a76afa27efdc7370438c5d4900492;hpb=9f9ed0471883b50fec1b091621f332d62477a34c

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index 4b3d91c..fa4f8ef 100644
--- a/Data/Time/RFC822.hs
+++ b/Data/Time/RFC822.hs
@@ -69,18 +69,6 @@ format zonedTime
                , showTZ timeZone
                ]
 
-showTZ :: TimeZone -> String
-showTZ tz
-    = case timeZoneMinutes tz of
-        offset | offset <  0 -> '-' : showTZ' (negate offset)
-               | otherwise   -> '+' : showTZ' offset
-    where
-      showTZ' offset
-          = let h = offset `div` 60
-                m = offset - h * 60
-            in
-              concat [show2 h, show2 m]
-
 parse :: String -> Maybe ZonedTime
 parse src = case P.parse p "" src of
               Right zt -> Just zt