diff options
| -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 |