cosmetic changes

[time-http.git] / Data / Time / HTTP / Common.hs

diff --git a/Data/Time/HTTP/Common.hs b/Data/Time/HTTP/Common.hs
index 6cb59b3bc63aaf06b1701c0ba978dc80870d3c4c..f6b1afe64845649bad8dc36bdc2d0ac9c283c648 100644 (file)
--- a/Data/Time/HTTP/Common.hs
+++ b/Data/Time/HTTP/Common.hs
@@ -18,7 +18,7 @@ module Data.Time.HTTP.Common
     , read2
     , read4
 
     , read2
     , read4
 

-    , showTZ
+    , show4digitsTZ

     , read4digitsTZ
 
     , assertWeekDayIsGood
     , read4digitsTZ
 
     , assertWeekDayIsGood


@@ -202,8 +202,8 @@ fromC '8' = 8
 fromC '9' = 9
 fromC _   = undefined
 
 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
     = case timeZoneMinutes tz of
         offset | offset <  0 -> '-' : showTZ' (negate offset)
                | otherwise   -> '+' : showTZ' offset