From: panne <unknown>
Date: Sun, 16 Jan 2005 11:50:45 +0000 (+0000)
Subject: [project @ 2005-01-16 11:50:45 by panne]
X-Git-Tag: nhc98-1-18-release~107
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=358b5a7600d4ceeab5822ec3e226522072acd1aa;p=ghc-base.git

[project @ 2005-01-16 11:50:45 by panne]
Improved DEPRECATED pragmas a bit
---

diff --git a/Data/Set.hs b/Data/Set.hs
index 8b852ed..887c206 100644
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -1084,11 +1084,11 @@ prop_List xs
 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
 
-{-# DEPRECATED setToList "Use instead." #-}
+{-# DEPRECATED setToList "Use elems instead." #-}
 setToList :: Set a -> [a] 
 setToList = elems
 
@@ -1124,10 +1124,10 @@ mapSet = map
 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
 
-{-# DEPRECATED delFromSet "Use delete instead." #-}
+{-# DEPRECATED delFromSet "Use `flip delete' instead." #-}
 delFromSet :: Ord a => Set a -> a -> Set a
 delFromSet = flip delete