diff options
| author | Richard Eisenberg <rae@richarde.dev> | 2022-03-29 21:10:16 +0000 |
|---|---|---|
| committer | Richard Eisenberg <rae@richarde.dev> | 2022-03-29 21:15:07 +0000 |
| commit | 0c2ae555ce31077008170ef843010d9242966539 (patch) | |
| tree | 679cc4885aaaeec5da5bb64cb530e8dfe9607321 | |
| parent | 2c12627caba908153bf0af92459d08e399aa8aad (diff) | |
| download | haskell-0c2ae555ce31077008170ef843010d9242966539.tar.gz | |
Add a Foldable UniqDSet instance
This is not used yet, but it will be in another patch,
and this instance seems generally useful.
| -rw-r--r-- | compiler/GHC/Types/Unique/DSet.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/GHC/Types/Unique/DSet.hs b/compiler/GHC/Types/Unique/DSet.hs index d4d555f83b..d1602e2c6e 100644 --- a/compiler/GHC/Types/Unique/DSet.hs +++ b/compiler/GHC/Types/Unique/DSet.hs @@ -53,6 +53,9 @@ import Data.Data newtype UniqDSet a = UniqDSet {getUniqDSet' :: UniqDFM a a} deriving (Data) +instance Foldable UniqDSet where + foldr f z = foldr f z . uniqDSetToList + emptyUniqDSet :: UniqDSet a emptyUniqDSet = UniqDSet emptyUDFM |