[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