From 6da89cfbbf56591ef3cacc83d123069489fb2676 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 30 Oct 2000 11:01:58 +0000
Subject: [PATCH] [project @ 2000-10-30 11:01:58 by simonpj] wibble
---
ghc/compiler/rename/Rename.lhs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 094a01f4c3cb..539c2561021c 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)
--
GitLab