Fixing Hpc's Finite Map compat lib for ghc 6.2.1

[ghc-hetmet.git] / utils / hpc / HpcMap.hs

diff --git a/utils/hpc/HpcMap.hs b/utils/hpc/HpcMap.hs
index 67e09c4..b1a0f2f 100644 (file)
--- a/utils/hpc/HpcMap.hs
+++ b/utils/hpc/HpcMap.hs
@@ -16,6 +16,8 @@ type Map key elt = Map.FiniteMap key elt
 
 lookup = flip Map.lookupFM
 fromList = Map.listToFM 
+fromListWith f xs = Map.addListToFM_C f Map.emptyFM xs
+toList = Map.fmToList
 
 #else