From 2c4554c35c6b987b71ef281fd1867da5f5b8ed82 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Tue, 3 Jun 2003 15:07:11 +0000
Subject: [PATCH] [project @ 2003-06-03 15:07:11 by panne] Nuked debugging
 output

---
 ghc/compiler/deSugar/DsUtils.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs
index 290ee47..4556b0a 100644
--- a/ghc/compiler/deSugar/DsUtils.lhs
+++ b/ghc/compiler/deSugar/DsUtils.lhs
@@ -599,8 +599,8 @@ chunkify :: [a] -> [[a]]
 -- The sub-lists of the result all have length <= mAX_TUPLE_SIZE
 -- But there may be more than mAX_TUPLE_SIZE sub-lists
 chunkify xs
-  | n_xs <= mAX_TUPLE_SIZE = pprTrace "Small" (ppr n_xs) [xs] 
-  | otherwise		   = pprTrace "Big" (ppr n_xs) (split xs)
+  | n_xs <= mAX_TUPLE_SIZE = {- pprTrace "Small" (ppr n_xs) -} [xs] 
+  | otherwise		   = {- pprTrace "Big"   (ppr n_xs) -} (split xs)
   where
     n_xs     = length xs
     split [] = []
-- 
1.7.10.4