projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(F)SLIT -> (f)sLit in TcRnTypes
[ghc-hetmet.git]
/
utils
/
hpc
/
HpcMap.hs
diff --git
a/utils/hpc/HpcMap.hs
b/utils/hpc/HpcMap.hs
index
adcc489
..
b1a0f2f
100644
(file)
--- 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
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
#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
#else
@@
-23,5
+25,7
@@
type Map key elt = Map.Map key elt
lookup = Map.lookup
fromList = Map.fromList
lookup = Map.lookup
fromList = Map.fromList
+toList = Map.toList
+fromListWith = Map.fromListWith
#endif
#endif