X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FHTTP%2FCommon.hs;h=f6b1afe64845649bad8dc36bdc2d0ac9c283c648;hp=6cb59b3bc63aaf06b1701c0ba978dc80870d3c4c;hb=c889f6f399e0e3c8bf6327323bbb838e06c9b7f9;hpb=01d923fe509a76afa27efdc7370438c5d4900492

diff --git a/Data/Time/HTTP/Common.hs b/Data/Time/HTTP/Common.hs
index 6cb59b3..f6b1afe 100644
--- a/Data/Time/HTTP/Common.hs
+++ b/Data/Time/HTTP/Common.hs
@@ -18,7 +18,7 @@ module Data.Time.HTTP.Common
     , read2
     , read4
 
-    , showTZ
+    , show4digitsTZ
     , read4digitsTZ
 
     , assertWeekDayIsGood
@@ -202,8 +202,8 @@ fromC '8' = 8
 fromC '9' = 9
 fromC _   = undefined
 
-showTZ :: TimeZone -> String
-showTZ tz
+show4digitsTZ :: TimeZone -> String
+show4digitsTZ tz
     = case timeZoneMinutes tz of
         offset | offset <  0 -> '-' : showTZ' (negate offset)
                | otherwise   -> '+' : showTZ' offset