Cosmetic changes suggested by hlint.

diff --git a/Data/Time/HTTP/Common.hs b/Data/Time/HTTP/Common.hs
index f6b1afe64845649bad8dc36bdc2d0ac9c283c648..a84dda7fa1434e05f75330c1435168ed97ead8f4 100644 (file)
--- 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 117837efdc8ed119e565d21012b1e8592d54f606..6ddca7e982cbdcf8d2b6ea2f81b5737e4808e444 100644 (file)
--- 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
              ]