From 136d634590dfed8008c084e2418e7c1663924829 Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 21 Feb 2003 12:28:35 +0000 Subject: [PATCH 1/1] [project @ 2003-02-21 12:28:35 by simonpj] Another typo; sigh --- ghc/compiler/typecheck/TcRnDriver.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) }} -- 1.7.10.4