From: simonpj <unknown>
Date: Fri, 21 Feb 2003 12:28:35 +0000 (+0000)
Subject: [project @ 2003-02-21 12:28:35 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1115
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=136d634590dfed8008c084e2418e7c1663924829;p=ghc-hetmet.git

[project @ 2003-02-21 12:28:35 by simonpj]
Another typo; sigh
---

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 830dcc2..eeed95c 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -709,7 +709,7 @@ monad; it augments it and returns the new TcGblEnv.
 tcRnGroup :: HsGroup RdrName -> TcM ((TcGblEnv, TcLclEnv), FreeVars)
 	-- Returns the variables free in the decls, for unused-binding reporting
 tcRnGroup decls
- = do {	showLIE (text "start of tcRnGroup" ++ ppr decls) ;
+ = do {	showLIE (text "LIE at start of tcRnGroup" <+> ppr decls) ;
 
 		-- Rename the declarations
 	(tcg_env, rn_decls, src_fvs) <- rnTopSrcDecls decls ;
@@ -718,7 +718,7 @@ tcRnGroup decls
 		-- Typecheck the declarations
 	tc_envs <- tcTopSrcDecls rn_decls ;
 
-	showLIE (text "end of tcRnGroup" ++ ppr decls) 
+	showLIE (text "LIE at end of tcRnGroup" <+> ppr decls) ;
 	return (tc_envs, src_fvs)
   }}