Egregious typo (fixes Trac #6055)
authorSimon Peyton Jones <simonpj@microsoft.com>
Mon, 30 Apr 2012 15:20:01 +0000 (16:20 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Mon, 30 Apr 2012 15:20:01 +0000 (16:20 +0100)
compiler/typecheck/TcInteract.lhs

index c62c778..884331d 100644 (file)
@@ -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 }