Zap redundant constraints

these are shown by GHC 7.11/8.0
This commit is contained in:
Gabor Greif 2016-01-27 14:40:56 +01:00 committed by Joey Hess
parent 5151f7005e
commit 90d2c7fa90
Failed to extract signature

View file

@ -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