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/prelude/PrelInfo.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/prelude/PrelInfo.hs')
| -rw-r--r-- | compiler/prelude/PrelInfo.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/compiler/prelude/PrelInfo.hs b/compiler/prelude/PrelInfo.hs index 2303a8edd3..94c8328e55 100644 --- a/compiler/prelude/PrelInfo.hs +++ b/compiler/prelude/PrelInfo.hs @@ -119,10 +119,12 @@ wired-in Ids. ghcPrimExports :: [IfaceExport] ghcPrimExports - = map (Avail . idName) ghcPrimIds ++ - map (Avail . idName . primOpId) allThePrimOps ++ - [ AvailTC n [n] - | tc <- funTyCon : primTyCons, let n = tyConName tc ] + = map (Avail . mkNameWarn . idName) ghcPrimIds ++ + map (Avail . mkNameWarn . idName . primOpId) allThePrimOps ++ + [ AvailTC (mkNameWarn n) [mkNameWarn n] + | tc <- funTyCon : primTyCons, let n = tyConName tc ] + where + mkNameWarn n = NameWarn n Nothing {- ************************************************************************ |