From 358b5a7600d4ceeab5822ec3e226522072acd1aa Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 16 Jan 2005 11:50:45 +0000
Subject: [PATCH] [project @ 2005-01-16 11:50:45 by panne] Improved DEPRECATED
 pragmas a bit

---
 Data/Set.hs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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
-- 
1.7.10.4