From: simonpj <unknown>
Date: Mon, 30 Oct 2000 11:01:58 +0000 (+0000)
Subject: [project @ 2000-10-30 11:01:58 by simonpj]
X-Git-Tag: Approximately_9120_patches~3468
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6da89cfbbf56591ef3cacc83d123069489fb2676;p=ghc-hetmet.git

[project @ 2000-10-30 11:01:58 by simonpj]
wibble
---

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 094a01f..539c256 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -644,10 +644,9 @@ warnDeprecations my_mod_iface used_names
     mapRn_ warnDeprec deprecs
 
   where
-    mod	       = mi_module my_mod_iface
     my_deprecs = mi_deprecs my_mod_iface
     lookup_deprec hit pit n 
-	| isLocalThing mod n = lookupDeprec my_deprecs n
+	| isLocallyDefined n = lookupDeprec my_deprecs n
 	| otherwise	     = case lookupTable hit pit n of
 				 Just iface -> lookupDeprec (mi_deprecs iface) n
 				 Nothing    -> pprPanic "warnDeprecations:" (ppr n)