diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2015-01-29 13:32:58 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2015-01-29 13:32:58 +0100 |
| commit | 348df976743964ab838714e01f4bcac752c5dfc4 (patch) | |
| tree | 193d03f8d97094da8f20e50950d86ac8aa3175ea /compiler/rename/RnSource.hs | |
| parent | 07ee96faac4996cde0ab82789eec0b70d1a35af0 (diff) | |
| download | haskell-wip/T4879.tar.gz | |
Support re-export deprecations (re #4879)wip/T4879
This is basically the patch originally implemented by Ian Lynagh
forward-ported to GHC 7.10/11
Diffstat (limited to 'compiler/rename/RnSource.hs')
| -rw-r--r-- | compiler/rename/RnSource.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/rename/RnSource.hs b/compiler/rename/RnSource.hs index ac86fc3227..e44b23f751 100644 --- a/compiler/rename/RnSource.hs +++ b/compiler/rename/RnSource.hs @@ -128,7 +128,8 @@ rnSrcDecls extra_deps group@(HsGroup { hs_valds = val_decls, -- Not pattern-synonym binders, because we did -- them in step (B) all_bndrs = extendNameSetList tc_bndrs val_binders ; - val_avails = map Avail val_binders } ; + val_avails = map mkAvail val_binders ; + mkAvail n = Avail (NameWarn n Nothing) } ; traceRn (text "rnSrcDecls" <+> ppr val_avails) ; (tcg_env, tcl_env) <- extendGlobalRdrEnvRn val_avails local_fix_env ; setEnvs (tcg_env, tcl_env) $ do { |