From: simonpj <unknown>
Date: Mon, 2 May 2005 12:33:06 +0000 (+0000)
Subject: [project @ 2005-05-02 12:33:06 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~624
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ac733aa2809d6352533e33fb559bbe459cbf5182;p=ghc-hetmet.git

[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
--- 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