[commit: ghc] ghc-spj: Tiny refactoring; no change in behaviour (05debbb)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-spj

http://hackage.haskell.org/trac/ghc/changeset/05debbb4fd65fb10fd27a25a6b279fbeec600fe4

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

commit 05debbb4fd65fb10fd27a25a6b279fbeec600fe4
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Sun Apr 22 18:32:50 2012 +0100

    Tiny refactoring; no change in behaviour

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

 compiler/typecheck/TcType.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/typecheck/TcType.lhs b/compiler/typecheck/TcType.lhs
index ea93680..74b4e1a 100644
--- a/compiler/typecheck/TcType.lhs
+++ b/compiler/typecheck/TcType.lhs
@@ -1128,7 +1128,7 @@ mkMinimalBySCs ptys = [ ploc |  ploc <- ptys
                              ,  ploc `not_in_preds` rec_scs ]
  where
    rec_scs = concatMap trans_super_classes ptys
-   not_in_preds p ps = null (filter (eqPred p) ps)
+   not_in_preds p ps = not (any (eqPred p) ps)
 
    trans_super_classes pred   -- Superclasses of pred, excluding pred itself
      = case classifyPredType pred of