X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcSet.hs;fp=utils%2Fhpc%2FHpcSet.hs;h=0000000000000000000000000000000000000000;hb=8f8b434cfe55d949b54ad97eac5231198fa8df7a;hp=d5dfe38fc7549b4ea51dc69860fe86a95914f64d;hpb=4c415f933a099cc968d4928ddd646dabed83934e;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcSet.hs b/utils/hpc/HpcSet.hs
deleted file mode 100644
index d5dfe38..0000000
--- a/utils/hpc/HpcSet.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module HpcSet (	module HpcSet ) where 
-
-import qualified Data.Set as Set
-
-type Set a = Set.Set a
-
-empty  :: Set a
-insert :: (Ord a) => a -> Set a -> Set a
-member :: (Ord a) => a -> Set a -> Bool
-null   :: Set a -> Bool
-intersection :: Ord a => Set a -> Set a -> Set a
-fromList :: Ord a => [a] -> Set a
-toList :: Set a -> [a]
-union :: Ord a => Set a -> Set a -> Set a
-
-#if __GLASGOW_HASKELL__ < 604
-
-empty  = Set.emptySet
-insert = flip Set.addToSet
-member = Set.elementOf
-null   = Set.isEmptySet
-intersection = Set.intersect
-fromList = Set.mkSet
-toList = Set.setToList
-union = Set.union
-
-#else
-
-empty  = Set.empty
-insert = Set.insert
-member = Set.member
-null   = Set.null
-intersection = Set.intersection
-fromList = Set.fromList
-toList = Set.toList
-union = Set.union
-
-#endif
-