From 40eafd315dc07e75bbacc6649fa9e0ed5fea5a9c Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Dec 2015 11:00:26 -0500 Subject: [PATCH] Remove the arbitrary instance for ArbitrarySyntax. --- test/Spec.hs | 7 ------- 1 file changed, 7 deletions(-) diff --git a/test/Spec.hs b/test/Spec.hs index 5a4f940a3..90c175d67 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -25,13 +25,6 @@ unTerm arbitraryTerm = unfold unpack arbitraryTerm newtype ArbitrarySyntax a f = ArbitrarySyntax { unSyntax :: Syntax a f } deriving (Show, Eq) -instance (Arbitrary a, Arbitrary f) => Arbitrary (ArbitrarySyntax a f) where - arbitrary = oneof [ - ArbitrarySyntax . Leaf <$> arbitrary, - ArbitrarySyntax . Indexed <$> arbitrary, - ArbitrarySyntax . Syntax.Fixed <$> arbitrary, - ArbitrarySyntax . Keyed . Map.fromList <$> arbitrary ] - instance (Arbitrary a, Arbitrary annotation) => Arbitrary (ArbitraryTerm a annotation) where arbitrary = arbitraryBounded 4