X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FSet.hs;h=b724d01000c5c4bb352e44a5e63b2d95f15fbee3;hb=f7a485978f04e84b086f1974b88887cc72d832d0;hp=71f09c0c2f3452bb166f4781c32cfbed95ce65d7;hpb=9fa9bc17072a58c0bae2cce4764d38677e96ac29;p=ghc-base.git

diff --git a/Data/Set.hs b/Data/Set.hs
index 71f09c0..b724d01 100644
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -2,14 +2,12 @@
 -- |
 -- Module      :  Data.Set
 -- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: Set.hs,v 1.2 2002/04/24 16:31:40 simonmar Exp $
---
 -- This implementation of sets sits squarely upon Data.FiniteMap.
 --
 -----------------------------------------------------------------------------
@@ -21,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
@@ -51,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