From: sof <unknown>
Date: Mon, 26 May 1997 03:14:46 +0000 (+0000)
Subject: [project @ 1997-05-26 03:14:46 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~525
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4ea65986942ecbef2ae1836ff9ee86180e2458cc;p=ghc-hetmet.git

[project @ 1997-05-26 03:14:46 by sof]
Cosmetics
---

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