diff options
Diffstat (limited to 'utils/dump-decls/Main.hs')
| -rw-r--r-- | utils/dump-decls/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/utils/dump-decls/Main.hs b/utils/dump-decls/Main.hs index 5d8b3e9193..da3fb03b46 100644 --- a/utils/dump-decls/Main.hs +++ b/utils/dump-decls/Main.hs @@ -13,7 +13,7 @@ import GHC.Types.Unique.Set (nonDetEltsUniqSet) import GHC.Types.TyThing (tyThingParent_maybe) import GHC.Types.TyThing.Ppr (pprTyThing) import GHC.Types.Name (nameOccName, nameModule_maybe, stableNameCmp) -import GHC.Types.Name.Occurrence (OccName, OccSet, mkOccSet, elemOccSet) +import GHC.Types.Name.Occurrence (OccName) import GHC.Unit.External (eps_inst_env) import GHC.Iface.Syntax (ShowSub(..), ShowHowMuch(..), AltPpr(..)) import GHC.Iface.Type (ShowForAllFlag(..)) @@ -127,11 +127,11 @@ reportModuleDecls modl_nm let names = GHC.modInfoExports mod_info sorted_names = sortBy (compare `on` nameOccName) names - exported_occs :: OccSet - exported_occs = mkOccSet $ map nameOccName names + exported_occs :: [OccName] + exported_occs = map nameOccName names is_exported :: OccName -> Bool - is_exported = (`elemOccSet` exported_occs) + is_exported = (`elem` exported_occs) things <- mapM GHC.lookupName sorted_names let contents = vcat $ |