projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-16 11:50:45 by panne]
[ghc-base.git]
/
Data
/
Set.hs
diff --git
a/Data/Set.hs
b/Data/Set.hs
index
8b852ed
..
887c206
100644
(file)
--- a/
Data/Set.hs
+++ b/
Data/Set.hs
@@
-1084,11
+1084,11
@@
prop_List xs
emptySet :: Set a
emptySet = empty
emptySet :: Set a
emptySet = empty
-{-# DEPRECATED mkSet "Equivalent to 'foldl insert empty'." #-}
+{-# DEPRECATED mkSet "Equivalent to 'foldl' (flip insert) empty'." #-}
mkSet :: Ord a => [a] -> Set a
mkSet = List.foldl' (flip insert) empty
mkSet :: Ord a => [a] -> Set a
mkSet = List.foldl' (flip insert) empty
-{-# DEPRECATED setToList "Use instead." #-}
+{-# DEPRECATED setToList "Use elems instead." #-}
setToList :: Set a -> [a]
setToList = elems
setToList :: Set a -> [a]
setToList = elems
@@
-1124,10
+1124,10
@@
mapSet = map
intersect :: Ord a => Set a -> Set a -> Set a
intersect = intersection
intersect :: Ord a => Set a -> Set a -> Set a
intersect = intersection
-{-# DEPRECATED addToSet "Use insert instead." #-}
+{-# DEPRECATED addToSet "Use 'flip insert' instead." #-}
addToSet :: Ord a => Set a -> a -> Set a
addToSet = flip insert
addToSet :: Ord a => Set a -> a -> Set a
addToSet = flip insert
-{-# DEPRECATED delFromSet "Use delete instead." #-}
+{-# DEPRECATED delFromSet "Use `flip delete' instead." #-}
delFromSet :: Ord a => Set a -> a -> Set a
delFromSet = flip delete
delFromSet :: Ord a => Set a -> a -> Set a
delFromSet = flip delete