blob: 36d680794f0766ea527b700cbb3ce7bc13f6b6a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
|
