[project @ 2003-10-20 14:02:19 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcDeriv.lhs

diff --git a/ghc/compiler/typecheck/TcDeriv.lhs b/ghc/compiler/typecheck/TcDeriv.lhs
index 2f63cf7..012a5d0 100644 (file)
--- a/ghc/compiler/typecheck/TcDeriv.lhs
+++ b/ghc/compiler/typecheck/TcDeriv.lhs
@@ -248,8 +248,9 @@ deriveOrdinaryStuff eqns
        ; tcg_env <- getGblEnv
        ; let gen_binds = mkGenericBinds (typeEnvTyCons (tcg_type_env tcg_env))
 
-       -- Rename these extra bindings
-       ; (rn_binds, _fvs1) <- rnTopMonoBinds (extra_binds `AndMonoBinds` gen_binds) []
+       -- Rename these extra bindings, discarding warnings about unused bindings etc
+       ; (rn_binds, _fvs1) <- discardWarnings $
+                              rnTopMonoBinds (extra_binds `AndMonoBinds` gen_binds) []
 
        ; let all_binds = rn_binds `ThenBinds` 
                          foldr ThenBinds EmptyBinds aux_binds_s