From: andy@galois.com <unknown>
Date: Sat, 8 Sep 2007 05:53:20 +0000 (+0000)
Subject: Fixing Hpc's Finite Map compat lib for ghc 6.2.1
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=513f08c0a11a39ed2e25aa30de51fb0513fa1ccb

Fixing Hpc's Finite Map compat lib for ghc 6.2.1
---

diff --git a/utils/hpc/HpcMap.hs b/utils/hpc/HpcMap.hs
index 67e09c4..b1a0f2f 100644
--- 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