[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

@@ -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