[project @ 2005-05-02 12:33:06 by simonpj]

Nuke bogus warnings in deriving; MERGE TO STABLE

diff --git a/ghc/compiler/typecheck/TcDeriv.lhs b/ghc/compiler/typecheck/TcDeriv.lhs
index 2a07925..36b980f 100644 (file)
--- a/ghc/compiler/typecheck/TcDeriv.lhs
+++ b/ghc/compiler/typecheck/TcDeriv.lhs
@@ -823,7 +823,10 @@ genInst spec
 
        -- Bring the right type variables into 
        -- scope, and rename the method binds
-       ; (rn_meth_binds, _fvs) <- bindLocalNames (map varName tyvars)  $
+       -- It's a bit yukky that we return *renamed* InstInfo, but
+       -- *non-renamed* auxiliary bindings
+       ; (rn_meth_binds, _fvs) <- discardWarnings $ 
+                                  bindLocalNames (map varName tyvars)  $
                                   rnMethodBinds clas_nm [] meth_binds
 
        -- Build the InstInfo