X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Futils%2FFiniteMap.lhs;h=28c96206956a4745c2d26db9fac6ec22706085f7;hb=6f259e0eefc27e2c9fcdce99b0c760769b6fe435;hp=011a00c4f4be42f93926c204642c43ed73f0b467;hpb=33167a5bdcd6a487a8f212c6757c4f8901bc067c;p=ghc-hetmet.git

diff --git a/compiler/utils/FiniteMap.lhs b/compiler/utils/FiniteMap.lhs
index 011a00c..28c9620 100644
--- a/compiler/utils/FiniteMap.lhs
+++ b/compiler/utils/FiniteMap.lhs
@@ -170,7 +170,11 @@ delListFromFM = foldl delFromFM
 plusFM (FM x) (FM y) = FM (M.union y x)
 plusFM_C f (FM x) (FM y) = FM (M.unionWith f x y)
 minusFM (FM x) (FM y) = FM (M.difference x y)
+#if MIN_VERSION_containers(0,4,0)
+foldFM k z (FM m) = M.foldrWithKey k z m
+#else
 foldFM k z (FM m) = M.foldWithKey k z m
+#endif
 
 intersectFM (FM x) (FM y) = FM (M.intersection x y)
 intersectFM_C f (FM x) (FM y) = FM (M.intersectionWith f x y)