diff options
| author | Sebastian Graf <sebastian.graf@kit.edu> | 2018-11-13 14:54:54 +0100 |
|---|---|---|
| committer | Sebastian Graf <sebastian.graf@kit.edu> | 2018-11-13 14:54:55 +0100 |
| commit | 5b98a38a32f2bc8491dc897631be8892919e2143 (patch) | |
| tree | 0de170c19d2ad70b0bf59b29c6e5353c5c228b4f /compiler/utils/UniqFM.hs | |
| parent | 0f2ac24c26fb951cc81100085c7773906a241523 (diff) | |
| download | haskell-5b98a38a32f2bc8491dc897631be8892919e2143.tar.gz | |
Make `UniqDSet` a newtype
Summary:
This brings the situation of `UniqDSet` in line with `UniqSet`.
@dfeuer said in D3146#92820 that he would do this, but probably
never got around to it.
Validated locally.
Reviewers: AndreasK, mpickering, bgamari, dfeuer, simonpj
Reviewed By: simonpj
Subscribers: simonpj, rwbarton, carter, dfeuer
GHC Trac Issues: #15879, #13114
Differential Revision: https://phabricator.haskell.org/D5313
Diffstat (limited to 'compiler/utils/UniqFM.hs')
| -rw-r--r-- | compiler/utils/UniqFM.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/UniqFM.hs b/compiler/utils/UniqFM.hs index d4a024d34c..33d73cc60c 100644 --- a/compiler/utils/UniqFM.hs +++ b/compiler/utils/UniqFM.hs @@ -336,7 +336,7 @@ nonDetUFMToList (UFM m) = map (\(k, v) -> (getUnique k, v)) $ M.toList m ufmToIntMap :: UniqFM elt -> M.IntMap elt ufmToIntMap (UFM m) = m --- Determines whether two 'UniqFm's contain the same keys. +-- Determines whether two 'UniqFM's contain the same keys. equalKeysUFM :: UniqFM a -> UniqFM b -> Bool equalKeysUFM (UFM m1) (UFM m2) = liftEq (\_ _ -> True) m1 m2 |