[commit: packages/parallel] master: Remove redundant constraints, discovered by -fwarn-redundant-constraints (dfb8fe5)
git at git.haskell.org
git at git.haskell.org
Sat Jan 2 08:16:39 UTC 2016
Repository : ssh://git@git.haskell.org/parallel
On branch : master
Link : http://git.haskell.org/packages/parallel.git/commitdiff/dfb8fe517b10588847ca285f93300fa7f1552857
>---------------------------------------------------------------
commit dfb8fe517b10588847ca285f93300fa7f1552857
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date: Tue Jan 6 09:44:21 2015 +0000
Remove redundant constraints, discovered by -fwarn-redundant-constraints
>---------------------------------------------------------------
dfb8fe517b10588847ca285f93300fa7f1552857
Control/Seq.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Control/Seq.hs b/Control/Seq.hs
index 16d3e75..ebab1b5 100644
--- a/Control/Seq.hs
+++ b/Control/Seq.hs
@@ -146,11 +146,11 @@ seqFoldable strat = seqList strat . toList
-- | Evaluate the elements of an array according to the given strategy.
-- Evaluation of the array bounds may be triggered as a side effect.
-seqArray :: Ix i => Strategy a -> Strategy (Array i a)
+seqArray :: Strategy a -> Strategy (Array i a)
seqArray strat = seqList strat . Data.Array.elems
-- | Evaluate the bounds of an array according to the given strategy.
-seqArrayBounds :: Ix i => Strategy i -> Strategy (Array i a)
+seqArrayBounds :: Strategy i -> Strategy (Array i a)
seqArrayBounds strat = seqTuple2 strat strat . Data.Array.bounds
-- | Evaluate the keys and values of a map according to the given strategies.
More information about the ghc-commits
mailing list