diff options
| author |  Gabor Greif <ggreif@gmail.com> | 2016-01-27 14:40:56 +0100 |
|---|---|---|
| committer |  Joey Hess <joeyh@joeyh.name> | 2016-01-28 12:34:07 -0400 |
| commit | a5cc649d3e33113599ca14e8e5e0579dae6b3b3a (patch) | |
| tree | 0390f0993237df8454c8b31a68f0c4c9316c7d6d /Utility/QuickCheck.hs | |
| parent | 47389199a3d07408eebc708b932f8dd659d4afb4 (diff) | |
Zap redundant constraints
these are shown by GHC 7.11/8.0
Diffstat (limited to 'Utility/QuickCheck.hs')
| -rw-r--r-- | Utility/QuickCheck.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/QuickCheck.hs b/Utility/QuickCheck.hs index 8db03f4cd..369ef199d 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 |