projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
a9b9e4b
)
[project @ 2000-10-30 11:01:58 by simonpj]
author
simonpj
<unknown>
Mon, 30 Oct 2000 11:01:58 +0000
(11:01 +0000)
committer
simonpj
<unknown>
Mon, 30 Oct 2000 11:01:58 +0000
(11:01 +0000)
wibble
ghc/compiler/rename/Rename.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/Rename.lhs
b/ghc/compiler/rename/Rename.lhs
index
094a01f
..
539c256
100644
(file)
--- 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)