diff options
Diffstat (limited to 'compiler/prelude/PrelInfo.hs')
| -rw-r--r-- | compiler/prelude/PrelInfo.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/prelude/PrelInfo.hs b/compiler/prelude/PrelInfo.hs index 47f41fbf73..a76a78adc9 100644 --- a/compiler/prelude/PrelInfo.hs +++ b/compiler/prelude/PrelInfo.hs @@ -46,6 +46,8 @@ module PrelInfo ( #include "HsVersions.h" +import GhcPrelude + import KnownUniques import Unique ( isValidKnownKeyUnique ) @@ -169,8 +171,8 @@ knownKeyNamesOkay all_names | otherwise = Just badNamesStr where - namesEnv = foldl (\m n -> extendNameEnv_Acc (:) singleton m n n) - emptyUFM all_names + namesEnv = foldl' (\m n -> extendNameEnv_Acc (:) singleton m n n) + emptyUFM all_names badNamesEnv = filterNameEnv (\ns -> ns `lengthExceeds` 1) namesEnv badNamesPairs = nonDetUFMToList badNamesEnv -- It's OK to use nonDetUFMToList here because the ordering only affects @@ -250,7 +252,7 @@ ghcPrimExports = map (avail . idName) ghcPrimIds ++ map (avail . idName . primOpId) allThePrimOps ++ [ AvailTC n [n] [] - | tc <- funTyCon : primTyCons, let n = tyConName tc ] + | tc <- funTyCon : exposedPrimTyCons, let n = tyConName tc ] {- ************************************************************************ |