From: panne <unknown>
Date: Tue, 3 Jun 2003 15:07:11 +0000 (+0000)
Subject: [project @ 2003-06-03 15:07:11 by panne]
X-Git-Tag: Approx_11550_changesets_converted~817
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2c4554c35c6b987b71ef281fd1867da5f5b8ed82;p=ghc-hetmet.git

[project @ 2003-06-03 15:07:11 by panne]
Nuked debugging output
---

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 [] = []