diff options
Diffstat (limited to 'dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch')
| -rw-r--r-- | dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch b/dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch new file mode 100644 index 000000000000..36d680794f07 --- /dev/null +++ b/dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch @@ -0,0 +1,15 @@ +--- a/Lvm/Common/IdMap.hs ++++ b/Lvm/Common/IdMap.hs +@@ -121,10 +121,10 @@ unionMaps :: [IdMap a] -> IdMap a + unionMaps = foldr unionMap emptyMap + + foldMapWithId :: (Id -> a -> b -> b) -> b -> IdMap a -> b +-foldMapWithId f z (IdMap m) = IntMap.foldWithKey (f . idFromInt) z m ++foldMapWithId f z (IdMap m) = IntMap.foldrWithKey (f . idFromInt) z m + + foldMap :: (a -> b -> b) -> b -> IdMap a -> b +-foldMap f z (IdMap m) = IntMap.fold f z m ++foldMap f z (IdMap m) = IntMap.foldr f z m + + sizeMap :: IdMap a -> Int + sizeMap (IdMap m) = IntMap.size m |