From: simonm <unknown>
Date: Tue, 26 May 1998 13:54:04 +0000 (+0000)
Subject: [project @ 1998-05-26 13:54:04 by simonm]
X-Git-Tag: Approx_2487_patches~657
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=91be8b2ea16d553efd1effd1075afa407bd1dc94;p=ghc-hetmet.git

[project @ 1998-05-26 13:54:04 by simonm]
- remove some debugging code that crept in with the last commit.
---

diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs
index 2b7a7a1..db6a9da 100644
--- a/ghc/compiler/codeGen/ClosureInfo.lhs
+++ b/ghc/compiler/codeGen/ClosureInfo.lhs
@@ -102,7 +102,6 @@ import Type		( isUnpointedType, splitForAllTys, splitFunTys, mkFunTys,
 			)
 import Util		( isIn, mapAccumL )
 import Outputable
-import GlaExts --tmp
 \end{code}
 
 The ``wrapper'' data type for closure information:
@@ -1134,7 +1133,6 @@ fun_result_ty arity ty
 	   -> fun_result_ty (arity - n_arg_tys) rep_ty
 	   where
 	      ([rep_ty], _) = splitFunTys (applyTys (idType con) tycon_arg_tys)
-      Just (_,_,cons) -> trace (showSDoc (ppr ty) ++ showSDoc(ppr cons)) $ panic "fun_result_ty"
   where
      (_, rho_ty)	= splitForAllTys ty
      (arg_tys, res_ty)  = splitFunTys rho_ty