From: PHO <pho@cielonegro.org>
Date: Wed, 17 Mar 2010 06:47:03 +0000 (+0900)
Subject: cosmetic changes
X-Git-Tag: RELEASE-0.1.0.1~9
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=c889f6f399e0e3c8bf6327323bbb838e06c9b7f9;p=time-http.git

cosmetic changes
---

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
diff --git a/Data/Time/RFC733.hs b/Data/Time/RFC733.hs
index a5e28d3..c7a1e6b 100644
--- 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 fa4f8ef..c31c244 100644
--- 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