From 91be8b2ea16d553efd1effd1075afa407bd1dc94 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 26 May 1998 13:54:04 +0000
Subject: [PATCH] [project @ 1998-05-26 13:54:04 by simonm] - remove some
debugging code that crept in with the last commit.
---
ghc/compiler/codeGen/ClosureInfo.lhs | 2 --
1 file changed, 2 deletions(-)
diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs
index 2b7a7a1a8578..db6a9da4f6a4 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
--
GitLab