diff options
Diffstat (limited to 'utils/hpc/HpcMap.hs')
| -rw-r--r-- | utils/hpc/HpcMap.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/hpc/HpcMap.hs b/utils/hpc/HpcMap.hs index adcc4899bb..67e09c4c97 100644 --- a/utils/hpc/HpcMap.hs +++ b/utils/hpc/HpcMap.hs @@ -9,7 +9,7 @@ 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 @@ -23,5 +23,7 @@ type Map key elt = Map.Map key elt lookup = Map.lookup fromList = Map.fromList +toList = Map.toList +fromListWith = Map.fromListWith #endif |