cosmetic changes

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
 
-    , 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

diff --git a/Data/Time/RFC733.hs b/Data/Time/RFC733.hs
index a5e28d3b9bdd5c34d8a659580269dd060476320d..c7a1e6b4e879281ba31ba1dcfad4e06c353e1103 100644 (file)
--- a/Data/Time/RFC733.hs
+++ b/Data/Time/RFC733.hs
@@ -75,7 +75,7 @@ format zonedTime
                , ":"
                , show2 (floor (todSec timeOfDay))
                , " "
-               , showTZ timeZone
+               , show4digitsTZ timeZone
                ]
 
 parse :: String -> Maybe ZonedTime

diff --git a/Data/Time/RFC822.hs b/Data/Time/RFC822.hs
index fa4f8efe7d532046dae63901884f54110f43751a..c31c2448de6c2914938daa1c5ea1ed436938271c 100644 (file)
--- a/Data/Time/RFC822.hs
+++ b/Data/Time/RFC822.hs
@@ -66,7 +66,7 @@ format zonedTime
                , ":"
                , show2 (floor (todSec timeOfDay))
                , " "
-               , showTZ timeZone
+               , show4digitsTZ timeZone
                ]
 
 parse :: String -> Maybe ZonedTime