1 module HpcMap ( module HpcMap ) where
3 #if __GLASGOW_HASKELL__ < 604
4 import qualified Data.FiniteMap as Map
6 import qualified Data.Map as Map
10 lookup :: Ord key => key -> Map key elt -> Maybe elt
11 fromList :: Ord key => [(key,elt)] -> Map key elt
14 #if __GLASGOW_HASKELL__ < 604
15 type Map key elt = Map.FiniteMap key elt
17 lookup = flip Map.lookupFM
18 fromList = Map.listToFM
22 type Map key elt = Map.Map key elt
25 fromList = Map.fromList