Fix #4346 (INLINABLE pragma not behaving consistently)

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

diff --git a/utils/hpc/HpcMap.hs b/utils/hpc/HpcMap.hs
index 67e09c4..873fc50 100644 (file)
--- a/utils/hpc/HpcMap.hs
+++ b/utils/hpc/HpcMap.hs
@@ -10,12 +10,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
+toList :: Ord key => Map key elt -> [(key,elt)]
 
 #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