From 4ea65986942ecbef2ae1836ff9ee86180e2458cc Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 03:14:46 +0000
Subject: [PATCH] [project @ 1997-05-26 03:14:46 by sof] Cosmetics

---
 ghc/compiler/simplCore/SimplCase.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/ghc/compiler/simplCore/SimplCase.lhs b/ghc/compiler/simplCore/SimplCase.lhs
index 9b9a5ad..64496ad4 100644
--- a/ghc/compiler/simplCore/SimplCase.lhs
+++ b/ghc/compiler/simplCore/SimplCase.lhs
@@ -779,8 +779,7 @@ mkCoCase env scrut (AlgAlts outer_alts
 	 v | scrut_is_var = Var scrut_var
 	   | otherwise    = Con con (map TyArg arg_tys ++ map VarArg args)
 
-    arg_tys = --trace "SimplCase:getAppData...:2" $
-	      case (getAppDataTyConExpandingDicts (idType deflt_var)) of
+    arg_tys = case (getAppDataTyConExpandingDicts (idType deflt_var)) of
 		(_, arg_tys, _) -> arg_tys
 
 mkCoCase env scrut (PrimAlts
-- 
1.7.10.4