From c889f6f399e0e3c8bf6327323bbb838e06c9b7f9 Mon Sep 17 00:00:00 2001 From: PHO Date: Wed, 17 Mar 2010 15:47:03 +0900 Subject: [PATCH] cosmetic changes --- Data/Time/HTTP/Common.hs | 6 +++--- Data/Time/RFC733.hs | 2 +- Data/Time/RFC822.hs | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) 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 -- 2.40.0