diff options
| -rw-r--r-- | ghc/compiler/rename/Rename.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs index 094a01f4c3..539c256102 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) |