diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2023-05-15 21:16:34 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2023-05-16 07:58:47 -0400 |
| commit | dc7ca88b0bec358b5f57affda1514cc74b3337fc (patch) | |
| tree | 659e12b5601d3d32246eb84483b51b7c0d662cde /utils | |
| parent | 28e2c415eec10a7be8831b88f3e775ed6d2fa0cf (diff) | |
| download | haskell-wip/ci-interface-stability.tar.gz | |
Don't use OccSetwip/ci-interface-stability
OccSet appears not to behave as one would expect.
Diffstat (limited to 'utils')
| -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 $ |