diff options
Diffstat (limited to 'compiler/utils/UniqSet.hs')
| -rw-r--r-- | compiler/utils/UniqSet.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/utils/UniqSet.hs b/compiler/utils/UniqSet.hs index a316f53370..32a5a22c78 100644 --- a/compiler/utils/UniqSet.hs +++ b/compiler/utils/UniqSet.hs @@ -33,6 +33,7 @@ module UniqSet ( partitionUniqSet ) where +import Data.Foldable ( foldl' ) import UniqFM import Unique @@ -93,11 +94,11 @@ type UniqSet a = UniqFM a emptyUniqSet = emptyUFM unitUniqSet x = unitUFM x x -mkUniqSet = foldl addOneToUniqSet emptyUniqSet +mkUniqSet = foldl' addOneToUniqSet emptyUniqSet addOneToUniqSet set x = addToUFM set x x addOneToUniqSet_C f set x = addToUFM_C f set x x -addListToUniqSet = foldl addOneToUniqSet +addListToUniqSet = foldl' addOneToUniqSet delOneFromUniqSet = delFromUFM delOneFromUniqSet_Directly = delFromUFM_Directly |