diff options
| author | simonpj <unknown> | 2000-10-30 11:01:58 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-10-30 11:01:58 +0000 |
| commit | 6da89cfbbf56591ef3cacc83d123069489fb2676 (patch) | |
| tree | 55700ab25d611d3940e83e476234f33c515de1ba /ghc/compiler/rename | |
| parent | a9b9e4b147bf28a29281a0cc9e648ab8a07bf633 (diff) | |
| download | haskell-6da89cfbbf56591ef3cacc83d123069489fb2676.tar.gz | |
[project @ 2000-10-30 11:01:58 by simonpj]
wibble
Diffstat (limited to 'ghc/compiler/rename')
| -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) |