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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
