X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fhpc%2FHpcMap.hs;h=b1a0f2f781057dc395dfe8bb042b38a70b6e55ce;hp=67e09c4c97306bc3046521b38d99e88d8bd24a8a;hb=513f08c0a11a39ed2e25aa30de51fb0513fa1ccb;hpb=c8742f253f0c0b38f977530eceaaecac55578b4b

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