From ac733aa2809d6352533e33fb559bbe459cbf5182 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 2 May 2005 12:33:06 +0000
Subject: [PATCH] [project @ 2005-05-02 12:33:06 by simonpj] Nuke bogus
 warnings in deriving; MERGE TO STABLE

---
 ghc/compiler/typecheck/TcDeriv.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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