Remove unused code.
authorMilan Straka <fox@ucw.cz>
Fri, 25 Nov 2011 13:01:48 +0000 (14:01 +0100)
committerMilan Straka <fox@ucw.cz>
Fri, 25 Nov 2011 13:01:48 +0000 (14:01 +0100)
Data/IntMap/Base.hs
Data/IntSet.hs
Data/Set.hs

index c9c35b8..9ff9a16 100644 (file)
@@ -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
 --------------------------------------------------------------------}
index b8e53a4..8144092 100644 (file)
@@ -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
 --------------------------------------------------------------------}
index 34fcf18..96eb7ed 100644 (file)
@@ -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