[commit: packages/binary] master: Remove tuple Arbitrary instances (7d75a2c)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/binary

On branch  : master
Link       : http://git.haskell.org/packages/binary.git/commitdiff/7d75a2ce11b79d6f1fc9a3674363723fd2c8e315

>---------------------------------------------------------------

commit 7d75a2ce11b79d6f1fc9a3674363723fd2c8e315
Author: Lennart Kolmodin <kolmodin at gmail.com>
Date:   Wed Sep 21 14:49:40 2016 +0200

    Remove tuple Arbitrary instances
    
    They're defined in recent QuickCheck versions.


>---------------------------------------------------------------

7d75a2ce11b79d6f1fc9a3674363723fd2c8e315
 tests/Arbitrary.hs | 40 ----------------------------------------
 1 file changed, 40 deletions(-)

diff --git a/tests/Arbitrary.hs b/tests/Arbitrary.hs
index 3d6281f..2b7aea4 100644
--- a/tests/Arbitrary.hs
+++ b/tests/Arbitrary.hs
@@ -21,43 +21,3 @@ instance Arbitrary B.ByteString where
 instance Arbitrary S.ShortByteString where
   arbitrary = S.toShort `fmap` arbitrary
 #endif
-
-instance (Arbitrary a, Arbitrary b, Arbitrary c, Arbitrary d, Arbitrary e,
-          Arbitrary f) =>
-         Arbitrary (a,b,c,d,e,f) where
-  arbitrary = do
-    (a,b,c,d,e) <- arbitrary
-    f <- arbitrary
-    return (a,b,c,d,e,f)
-
-instance (Arbitrary a, Arbitrary b, Arbitrary c, Arbitrary d, Arbitrary e,
-          Arbitrary f, Arbitrary g) =>
-         Arbitrary (a,b,c,d,e,f,g) where
-  arbitrary = do
-    (a,b,c,d,e) <- arbitrary
-    (f,g) <- arbitrary
-    return (a,b,c,d,e,f,g)
-
-instance (Arbitrary a, Arbitrary b, Arbitrary c, Arbitrary d, Arbitrary e,
-          Arbitrary f, Arbitrary g, Arbitrary h) =>
-         Arbitrary (a,b,c,d,e,f,g,h) where
-  arbitrary = do
-    (a,b,c,d,e) <- arbitrary
-    (f,g,h) <- arbitrary
-    return (a,b,c,d,e,f,g,h)
-
-instance (Arbitrary a, Arbitrary b, Arbitrary c, Arbitrary d, Arbitrary e,
-          Arbitrary f, Arbitrary g, Arbitrary h, Arbitrary i) =>
-         Arbitrary (a,b,c,d,e,f,g,h,i) where
-  arbitrary = do
-    (a,b,c,d,e) <- arbitrary
-    (f,g,h,i) <- arbitrary
-    return (a,b,c,d,e,f,g,h,i)
-
-instance (Arbitrary a, Arbitrary b, Arbitrary c, Arbitrary d, Arbitrary e,
-          Arbitrary f, Arbitrary g, Arbitrary h, Arbitrary i, Arbitrary j) =>
-         Arbitrary (a,b,c,d,e,f,g,h,i,j) where
-  arbitrary = do
-    (a,b,c,d,e) <- arbitrary
-    (f,g,h,i,j) <- arbitrary
-    return (a,b,c,d,e,f,g,h,i,j)