From e79e33b9d9cb29fb77494c814e28ee833b4939f8 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 27 Mar 2003 08:18:21 +0000
Subject: [PATCH] [project @ 2003-03-27 08:18:21 by simonpj] Reduce tctrace
 verbosity

---
 ghc/compiler/typecheck/TcRnDriver.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 591ce27..5bb8c6c 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -707,16 +707,13 @@ monad; it augments it and returns the new TcGblEnv.
 tcRnGroup :: HsGroup RdrName -> TcM ((TcGblEnv, TcLclEnv), DefUses)
 	-- Returns the variables free in the decls, for unused-binding reporting
 tcRnGroup decls
- = do {	showLIE (text "LIE at start of tcRnGroup" <+> ppr decls) ;
-
-		-- Rename the declarations
+ = do {		-- Rename the declarations
 	(tcg_env, rn_decls, src_dus) <- rnTopSrcDecls decls ;
 	setGblEnv tcg_env $ do {
 
 		-- Typecheck the declarations
 	tc_envs <- tcTopSrcDecls rn_decls ;
 
-	showLIE (text "LIE at end of tcRnGroup" <+> ppr decls) ;
 	return (tc_envs, src_dus)
   }}
 
-- 
1.7.10.4