diff --git a/Data/Time/HTTP/Common.hs b/Data/Time/HTTP/Common.hs
--- a/Data/Time/HTTP/Common.hs
+++ b/Data/Time/HTTP/Common.hs
@@ -164,13 +164,13 @@
 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 @@
           = 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 @@
          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
--- a/Data/Time/HTTP/Parsec.hs
+++ b/Data/Time/HTTP/Parsec.hs
@@ -17,5 +17,5 @@
 rfc2616DateAndTime
     = choice [ liftM zonedTimeToUTC $ try rfc1123DateAndTime
              , liftM zonedTimeToUTC $ try rfc733DateAndTime
-             , liftM (localTimeToUTC utc) $ asctime
+             , liftM (localTimeToUTC utc) asctime
              ]
diff --git a/time-http.cabal b/time-http.cabal
--- a/time-http.cabal
+++ b/time-http.cabal
@@ -1,6 +1,6 @@
 Name:                time-http
-Version:             0.1
-Synopsis:            Parse and format HTTP/1.1 Date and Time string
+Version:             0.1.0.1
+Synopsis:            Parse and format HTTP/1.1 Date and Time strings
 Description:
         This package provides functionalities to parse and format
         various Date and Time formats allowed in HTTP\/1.1 (RFC 2616).
@@ -36,9 +36,9 @@
         Data.Time.HTTP.Common
 
     Build-depends:
-        base   == 4.2.*,
-        parsec == 3.0.*,
-        time   == 1.1.*
+        base   == 4.3.*,
+        parsec == 3.1.*,
+        time   == 1.2.*
 
     Extensions:
         FlexibleContexts