diff --git a/msgpack-testsuite.cabal b/msgpack-testsuite.cabal
--- a/msgpack-testsuite.cabal
+++ b/msgpack-testsuite.cabal
@@ -1,5 +1,5 @@
 name:                 msgpack-testsuite
-version:              0.0.16
+version:              0.1.0
 synopsis:             A Haskell implementation of MessagePack
 homepage:             http://msgpack.org/
 license:              BSD3
@@ -42,6 +42,7 @@
     , monad-validate
     , msgpack-arbitrary
     , msgpack-types             >= 0.3 && < 0.4
+    , quickcheck-instances
     , text
     , unordered-containers
     , vector
diff --git a/src/Test/MessagePack/Spec.hs b/src/Test/MessagePack/Spec.hs
--- a/src/Test/MessagePack/Spec.hs
+++ b/src/Test/MessagePack/Spec.hs
@@ -8,12 +8,12 @@
 import           Test.Hspec
 import           Test.QuickCheck
 import qualified Test.QuickCheck.Gen         as Gen
+import           Test.QuickCheck.Instances   ()
 
 import qualified Data.ByteString.Char8       as S
 import qualified Data.ByteString.Lazy        as L8
 import qualified Data.ByteString.Lazy.Char8  as L
 import qualified Data.HashMap.Strict         as HashMap
-import           Data.Hashable               (Hashable)
 import           Data.Int                    (Int16, Int32, Int64, Int8)
 import qualified Data.IntMap                 as IntMap
 import qualified Data.Map                    as Map
@@ -79,29 +79,6 @@
     , Foo8 <$> arbitrary <*> arbitrary
     , Foo9 <$> arbitrary <*> arbitrary <*> arbitrary
     ]
-
-
-instance (Hashable k, Ord k, Eq k, Arbitrary k, Arbitrary v)
-    => Arbitrary (HashMap.HashMap k v) where
-  arbitrary = HashMap.fromList . Map.assocs <$> arbitrary
-
-instance Arbitrary a => Arbitrary (V.Vector a) where
-  arbitrary = V.fromList <$> arbitrary
-
-instance (Arbitrary a, VS.Storable a) => Arbitrary (VS.Vector a) where
-  arbitrary = VS.fromList <$> arbitrary
-
-instance (Arbitrary a, VU.Unbox a) => Arbitrary (VU.Vector a) where
-  arbitrary = VU.fromList <$> arbitrary
-
-instance Arbitrary S.ByteString where
-  arbitrary = S.pack <$> arbitrary
-
-instance Arbitrary L.ByteString where
-  arbitrary = L.pack <$> arbitrary
-
-instance Arbitrary LT.Text where
-  arbitrary = LT.pack <$> arbitrary
 
 
 type UnpackResult a = Either DecodeError a