diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs index 094a01f4c3cb9cc885d0fd1cf224e7e18defa20e..539c2561021cd4904fb9a85bdad556aecdf82126 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)