You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
547 B
16 lines
547 B
--- 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
|