From 90d2c7fa90577f0ae7b92a44d6c6b378975570dc Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Wed, 27 Jan 2016 14:40:56 +0100 Subject: [PATCH] Zap redundant constraints these are shown by GHC 7.11/8.0 --- Utility/QuickCheck.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Utility/QuickCheck.hs b/Utility/QuickCheck.hs index 8db03f4cd4..369ef199d4 100644 --- a/Utility/QuickCheck.hs +++ b/Utility/QuickCheck.hs @@ -22,10 +22,10 @@ import Control.Applicative import Prelude #if ! MIN_VERSION_QuickCheck(2,8,2) -instance (Arbitrary k, Arbitrary v, Eq k, Ord k) => Arbitrary (M.Map k v) where +instance (Arbitrary k, Arbitrary v, Ord k) => Arbitrary (M.Map k v) where arbitrary = M.fromList <$> arbitrary -instance (Arbitrary v, Eq v, Ord v) => Arbitrary (S.Set v) where +instance (Arbitrary v, Ord v) => Arbitrary (S.Set v) where arbitrary = S.fromList <$> arbitrary #endif