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

diff --git a/utils/hpc/HpcMap.hs b/utils/hpc/HpcMap.hs
index adcc489..b1a0f2f 100644
--- a/utils/hpc/HpcMap.hs
+++ b/utils/hpc/HpcMap.hs
@@ -9,13 +9,15 @@ import qualified Data.Map as Map
 
 lookup :: Ord key => key -> Map key elt -> Maybe elt
 fromList :: Ord key => [(key,elt)] -> Map key elt
-
+fromListWith :: Ord k => (a -> a -> a) -> [(k, a)] -> Map k a
 
 #if __GLASGOW_HASKELL__ < 604
 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
 
@@ -23,5 +25,7 @@ type Map key elt = Map.Map key elt
 
 lookup = Map.lookup
 fromList = Map.fromList
+toList   = Map.toList
+fromListWith = Map.fromListWith
 
 #endif