[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 (file)
--- 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