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 <[email protected]> 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 } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
