[commit: ghc] master: Egregious typo (fixes Trac #6055) (081ee17)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/081ee177f3727a4c1bfad5897cab51e30c209521

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

commit 081ee177f3727a4c1bfad5897cab51e30c209521
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Apr 30 16:20:01 2012 +0100

    Egregious typo (fixes Trac #6055)

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

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

diff --git a/compiler/typecheck/TcInteract.lhs b/compiler/typecheck/TcInteract.lhs
index c62c778..884331d 100644
--- a/compiler/typecheck/TcInteract.lhs
+++ b/compiler/typecheck/TcInteract.lhs
@@ -233,7 +233,7 @@ lookupInInertsStage ct
   = do { is <- getTcSInerts
        ; case lookupInInerts is (ctPred ct) of
            Just ct_cached 
-             |  not (isDerivedCt ct)
+             |  not (isDerivedCt ct_cached)
              -> setEvBind (ctId ct) (EvId (ctId ct_cached)) >> 
                 return Stop
            _ -> continueWith ct }