[commit: containers] master: Remove unused code. (cb1ecb0)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/containers

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/cb1ecb07859ba9395a4b89cf22b6006ca3038bc8

>---------------------------------------------------------------

commit cb1ecb07859ba9395a4b89cf22b6006ca3038bc8
Author: Milan Straka <fox at ucw.cz>
Date:   Fri Nov 25 14:01:48 2011 +0100

    Remove unused code.

>---------------------------------------------------------------

 Data/IntMap/Base.hs |   15 ---------------
 Data/IntSet.hs      |   12 ------------
 Data/Set.hs         |    7 -------
 3 files changed, 0 insertions(+), 34 deletions(-)

diff --git a/Data/IntMap/Base.hs b/Data/IntMap/Base.hs
index c9c35b8..9ff9a16 100644
--- a/Data/IntMap/Base.hs
+++ b/Data/IntMap/Base.hs
@@ -1666,21 +1666,6 @@ instance Show a => Show (IntMap a) where
   showsPrec d m   = showParen (d > 10) $
     showString "fromList " . shows (toList m)
 
-{-
-XXX unused code
-
-showMap :: (Show a) => [(Key,a)] -> ShowS
-showMap []
-  = showString "{}"
-showMap (x:xs)
-  = showChar '{' . showElem x . showTail xs
-  where
-    showTail []     = showChar '}'
-    showTail (x':xs') = showChar ',' . showElem x' . showTail xs'
-
-    showElem (k,v)  = shows k . showString ":=" . shows v
--}
-
 {--------------------------------------------------------------------
   Read
 --------------------------------------------------------------------}
diff --git a/Data/IntSet.hs b/Data/IntSet.hs
index b8e53a4..8144092 100644
--- a/Data/IntSet.hs
+++ b/Data/IntSet.hs
@@ -881,18 +881,6 @@ instance Show IntSet where
   showsPrec p xs = showParen (p > 10) $
     showString "fromList " . shows (toList xs)
 
-{-
-XXX unused code
-showSet :: [Int] -> ShowS
-showSet []
-  = showString "{}"
-showSet (x:xs)
-  = showChar '{' . shows x . showTail xs
-  where
-    showTail []     = showChar '}'
-    showTail (x':xs') = showChar ',' . shows x' . showTail xs'
--}
-
 {--------------------------------------------------------------------
   Read
 --------------------------------------------------------------------}
diff --git a/Data/Set.hs b/Data/Set.hs
index 34fcf18..96eb7ed 100644
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -151,13 +151,6 @@ import qualified Data.Foldable as Foldable
 import Data.Typeable
 import Control.DeepSeq (NFData(rnf))
 
-{-
--- just for testing
-import QuickCheck
-import List (nub,sort)
-import qualified List
--}
-
 #if __GLASGOW_HASKELL__
 import GHC.Exts ( build )
 import Text.Read