[commit: packages/containers] cleaned_bugfix394, master, merge-doc-target, merge-fixes-5.9, merge-restrict-fix-5.8, revert-408-bugfix_394: Remove redundant Eq constraint (29077e3)

git at git.haskell.org git at git.haskell.org
Mon Apr 17 21:41:53 UTC 2017


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

On branches: cleaned_bugfix394,master,merge-doc-target,merge-fixes-5.9,merge-restrict-fix-5.8,revert-408-bugfix_394
Link       : http://git.haskell.org/packages/containers.git/commitdiff/29077e30ae3bfe6b2e138fc6f2564219c33b5de2

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

commit 29077e30ae3bfe6b2e138fc6f2564219c33b5de2
Author: David Feuer <David.Feuer at gmail.com>
Date:   Sun May 22 19:26:35 2016 -0400

    Remove redundant Eq constraint
    
    The `Arbitrary (Map k v)` had a totally redundant `Eq k`
    constraint for some reason.


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

29077e30ae3bfe6b2e138fc6f2564219c33b5de2
 tests/map-strictness.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/map-strictness.hs b/tests/map-strictness.hs
index 3efea61..ab28757 100644
--- a/tests/map-strictness.hs
+++ b/tests/map-strictness.hs
@@ -11,7 +11,7 @@ import Test.QuickCheck (Arbitrary(arbitrary))
 import Data.Map.Strict (Map)
 import qualified Data.Map.Strict as M
 
-instance (Arbitrary k, Arbitrary v, Eq k, Ord k) =>
+instance (Arbitrary k, Arbitrary v, Ord k) =>
          Arbitrary (Map k v) where
     arbitrary = M.fromList `fmap` arbitrary
 



More information about the ghc-commits mailing list