Remove redundant HpcMap and HpcSet wrappers around Data.{Map,Set}

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

diff --git a/utils/hpc/HpcMap.hs b/utils/hpc/HpcMap.hs
deleted file mode 100644 (file)
index 873fc50..0000000
--- a/utils/hpc/HpcMap.hs
+++ /dev/null
@@ -1,32 +0,0 @@
-module HpcMap ( module HpcMap ) where
-
-#if __GLASGOW_HASKELL__ < 604
-import qualified Data.FiniteMap as Map
-#else
-import qualified Data.Map as Map
-#endif
-
-
-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
-
-type Map key elt = Map.Map key elt
-
-lookup = Map.lookup
-fromList = Map.fromList
-toList   = Map.toList
-fromListWith = Map.fromListWith
-
-#endif