diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs
index 2b7a7a1a8578abea3f7f56af30b19d01d1c1dc0f..db6a9da4f6a4397ee113f5351cada8a5799cade1 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