diff options
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 {- ************************************************************************ |