[project @ 2002-05-09 13:09:30 by simonmar]

singletonSet has been deprecated for a while; remove it now

diff --git a/Data/Set.hs b/Data/Set.hs
index 556bbc1..f4dad32 100644 (file)
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -19,7 +19,6 @@ module Data.Set (
        mkSet,          -- :: Ord a => [a]  -> Set a
        setToList,      -- :: Set a -> [a] 
        unitSet,        -- :: a -> Set a
-       singletonSet,   -- :: a -> Set a
 
        union,          -- :: Ord a => Set a -> Set a -> Set a
        unionManySets,  -- :: Ord a => [Set a] -> Set a
@@ -49,9 +48,6 @@ emptySet = MkSet emptyFM
 unitSet :: a -> Set a
 unitSet x = MkSet (unitFM x ())
 
-{-# DEPRECATED singletonSet "use Set.unitSet" #-}
-singletonSet = unitSet -- old;deprecated.
-
 setToList :: Set a -> [a]
 setToList (MkSet set) = keysFM set