diff --git a/hedis.cabal b/hedis.cabal
--- a/hedis.cabal
+++ b/hedis.cabal
@@ -1,5 +1,5 @@
 name:               hedis
-version:            0.6
+version:            0.6.1
 synopsis:
     Client library for the Redis datastore: supports full command set,  
     pipelining.
@@ -89,7 +89,7 @@
   build-depends:    attoparsec == 0.10.*,
                     base == 4.*,
                     BoundedChan == 1.0.*,
-                    bytestring == 0.9.*,
+                    bytestring >= 0.9 && < 0.11,
                     bytestring-lexing == 0.4.*,
                     mtl == 2.*,
                     network == 2.*,
@@ -122,7 +122,7 @@
     main-is: test/Test.hs
     build-depends:
         base == 4.*,
-        bytestring == 0.9.*,
+        bytestring >= 0.9 && < 0.11,
         hedis,
         HUnit == 1.2.*,
         mtl == 2.*,
diff --git a/src/Database/Redis/PubSub.hs b/src/Database/Redis/PubSub.hs
--- a/src/Database/Redis/PubSub.hs
+++ b/src/Database/Redis/PubSub.hs
@@ -220,7 +220,7 @@
   where
     decodeMessage  = Message  <$> decode r1 <*> decode r2
     decodePMessage = PMessage <$> decode r1 <*> decode r2 <*> decode (head rs)
-    decodeCnt      = decode r2
+    decodeCnt      = fromInteger <$> decode r2
         
 decodeMsg r = errMsg r
 
diff --git a/src/Database/Redis/Types.hs b/src/Database/Redis/Types.hs
--- a/src/Database/Redis/Types.hs
+++ b/src/Database/Redis/Types.hs
@@ -54,9 +54,6 @@
     decode r           =
         maybe (Left r) (Right . fst) . readSigned readDecimal =<< decode r
 
-instance RedisResult Int where
-    decode = fmap fromInteger . decode
-
 instance RedisResult Double where
     decode r = maybe (Left r) (Right . fst) . readDouble =<< decode r
 
@@ -66,7 +63,7 @@
         "PONG"   -> Pong
         _        -> Status s
     decode r = Left r
-    
+
 instance RedisResult RedisType where
     decode (SingleLine s) = Right $ case s of
         "none"   -> None
@@ -108,4 +105,4 @@
             k   <- decode r1
             v   <- decode r2
             kvs <- pairs rs
-            return $ (k,v) : kvs    
+            return $ (k,v) : kvs