projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-05-09 13:16:29 by simonmar]
[ghc-base.git]
/
Data
/
Set.hs
diff --git
a/Data/Set.hs
b/Data/Set.hs
index
11f4b61
..
b724d01
100644
(file)
--- a/
Data/Set.hs
+++ b/
Data/Set.hs
@@
-1,15
+1,13
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
---
+-- |
-- Module : Data.Set
-- Copyright : (c) The University of Glasgow 2001
-- 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
--
--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : portable
--
--- $Id: Set.hs,v 1.1 2001/09/13 11:50:35 simonmar Exp $
---
-- This implementation of sets sits squarely upon Data.FiniteMap.
--
-----------------------------------------------------------------------------
-- 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
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
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 ())
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
setToList :: Set a -> [a]
setToList (MkSet set) = keysFM set