From 513f08c0a11a39ed2e25aa30de51fb0513fa1ccb Mon Sep 17 00:00:00 2001
From: "andy@galois.com" <unknown>
Date: Sat, 8 Sep 2007 05:53:20 +0000
Subject: [PATCH 1/1] Fixing Hpc's Finite Map compat lib for ghc 6.2.1

---
 utils/hpc/HpcMap.hs |    2 ++
 1 file changed, 2 insertions(+)

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
 
-- 
1.7.10.4