diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-06-06 06:53:25 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-06-06 06:54:42 -0700 |
| commit | 31ba8d645d24b16324eb66fd07f007710fdd8ba9 (patch) | |
| tree | f0b7542cd0b3e8f28f550f41c62bf30d4cd61a17 | |
| parent | e684f5469399b9d239693eb54f9d1b4d55253ac4 (diff) | |
| download | haskell-31ba8d645d24b16324eb66fd07f007710fdd8ba9.tar.gz | |
Kill nameSetElems
nameSetElems used `eltsUFM` which is nondeterministic.
Test Plan: ./validate
Reviewers: simonmar, austin, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2305
GHC Trac Issues: #4012
| -rw-r--r-- | compiler/basicTypes/NameSet.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/basicTypes/NameSet.hs b/compiler/basicTypes/NameSet.hs index 7bfd915600..0ab4ec0749 100644 --- a/compiler/basicTypes/NameSet.hs +++ b/compiler/basicTypes/NameSet.hs @@ -10,7 +10,7 @@ module NameSet ( -- ** Manipulating these sets emptyNameSet, unitNameSet, mkNameSet, unionNameSet, unionNameSets, - minusNameSet, elemNameSet, nameSetElems, extendNameSet, extendNameSetList, + minusNameSet, elemNameSet, extendNameSet, extendNameSetList, delFromNameSet, delListFromNameSet, isEmptyNameSet, filterNameSet, intersectsNameSet, intersectNameSet, nameSetAny, nameSetAll, nameSetElemsStable, @@ -57,7 +57,6 @@ unionNameSet :: NameSet -> NameSet -> NameSet unionNameSets :: [NameSet] -> NameSet minusNameSet :: NameSet -> NameSet -> NameSet elemNameSet :: Name -> NameSet -> Bool -nameSetElems :: NameSet -> [Name] isEmptyNameSet :: NameSet -> Bool delFromNameSet :: NameSet -> Name -> NameSet delListFromNameSet :: NameSet -> [Name] -> NameSet @@ -77,7 +76,6 @@ unionNameSet = unionUniqSets unionNameSets = unionManyUniqSets minusNameSet = minusUniqSet elemNameSet = elementOfUniqSet -nameSetElems = uniqSetToList delFromNameSet = delOneFromUniqSet filterNameSet = filterUniqSet intersectNameSet = intersectUniqSets |