From ef4dedbd58f5a24f6a737a9e5d6a506c6d401f43 Mon Sep 17 00:00:00 2001 From: PHO Date: Wed, 27 Jul 2011 15:31:39 +0900 Subject: [PATCH] Cosmetic changes suggested by hlint. --- Data/Time/HTTP/Common.hs | 8 ++++---- Data/Time/HTTP/Parsec.hs | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Data/Time/HTTP/Common.hs b/Data/Time/HTTP/Common.hs index f6b1afe..a84dda7 100644 --- a/Data/Time/HTTP/Common.hs +++ b/Data/Time/HTTP/Common.hs @@ -164,13 +164,13 @@ show4 :: Integral i => i -> String show4 i | i >= 0 && i < 10 = "000" ++ show i | i >= 0 && i < 100 = "00" ++ show i - | i >= 0 && i < 1000 = "0" ++ show i + | i >= 0 && i < 1000 = '0' : show i | i >= 0 && i < 10000 = show i | otherwise = error ("show4: the integer i must satisfy 0 <= i < 10000: " ++ show i) show2 :: Integral i => i -> String show2 i - | i >= 0 && i < 10 = "0" ++ show i + | i >= 0 && i < 10 = '0' : show i | i >= 0 && i < 100 = show i | otherwise = error ("show2: the integer i must satisfy 0 <= i < 100: " ++ show i) @@ -212,7 +212,7 @@ show4digitsTZ tz = let h = offset `div` 60 m = offset - h * 60 in - concat [show2 h, show2 m] + show2 h ++ show2 m read4digitsTZ :: Stream s m Char => ParsecT s u m TimeZone read4digitsTZ @@ -222,7 +222,7 @@ read4digitsTZ hour <- read2 minute <- read2 let tz = TimeZone { - timeZoneMinutes = (sign * (hour * 60 + minute)) + timeZoneMinutes = sign * (hour * 60 + minute) , timeZoneSummerOnly = False , timeZoneName = timeZoneOffsetString tz } diff --git a/Data/Time/HTTP/Parsec.hs b/Data/Time/HTTP/Parsec.hs index 117837e..6ddca7e 100644 --- a/Data/Time/HTTP/Parsec.hs +++ b/Data/Time/HTTP/Parsec.hs @@ -17,5 +17,5 @@ rfc2616DateAndTime :: Stream s m Char => ParsecT s u m UTCTime rfc2616DateAndTime = choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime , liftM zonedTimeToUTC $ try rfc733DateAndTime - , liftM (localTimeToUTC utc) $ asctime + , liftM (localTimeToUTC utc) asctime ] -- 2.40.0