[commit: packages/deepseq] master, typeable-with-kinds: Remove redundant constraints, discovered by -fwarn-redundant-constraints (de1bc89)

[git at git.haskell.org]

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

On branches: master,typeable-with-kinds
Link       : http://git.haskell.org/packages/deepseq.git/commitdiff/de1bc894de1ffdd34e6eb8be4fb9e057198060c6

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

commit de1bc894de1ffdd34e6eb8be4fb9e057198060c6
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Jan 6 12:19:50 2015 +0000

    Remove redundant constraints, discovered by -fwarn-redundant-constraints


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

de1bc894de1ffdd34e6eb8be4fb9e057198060c6
 Control/DeepSeq.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
index 4213e92..418b081 100644
--- a/Control/DeepSeq.hs
+++ b/Control/DeepSeq.hs
@@ -284,10 +284,10 @@ instance NFData (a -> b) where rnf !_ = ()
 
 --Rational and complex numbers.
 
-instance (Integral a, NFData a) => NFData (Ratio a) where
+instance NFData a => NFData (Ratio a) where
   rnf x = rnf (numerator x, denominator x)
 
-instance (RealFloat a, NFData a) => NFData (Complex a) where
+instance (NFData a) => NFData (Complex a) where
   rnf (x:+y) = rnf x `seq`
                rnf y `seq`
                ()
@@ -316,7 +316,7 @@ instance NFData a => NFData (ZipList a) where
 instance NFData a => NFData (Const a b) where
     rnf = rnf . getConst
 
-instance (Ix a, NFData a, NFData b) => NFData (Array a b) where
+instance (NFData a, NFData b) => NFData (Array a b) where
     rnf x = rnf (bounds x, Data.Array.elems x)
 
 #if MIN_VERSION_base(4,6,0)