From fc2b5fcd34bef3a643727466e3bdb874304ab5c3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 17 Jul 2001 01:07:57 +0000
Subject: [PATCH] [project @ 2001-07-17 01:07:57 by sof] w

---
 ghc/compiler/main/HscMain.lhs |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 6f72a2b..a21f5f4 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -516,9 +516,8 @@ hscStmt dflags hst hit pcs0 icontext stmt just_expr
 		then case rn_stmt of { (ExprStmt e _ _, decls) -> 
 		     typecheckExpr dflags pcs1 hst type_env
 			   print_unqual iNTERACTIVE (e,decls) }
-		else case rn_stmt of { (stmt, decls) -> 
-		     typecheckStmt dflags pcs1 hst type_env
-			   print_unqual iNTERACTIVE bound_names (stmt,decls) }
+		else typecheckStmt dflags pcs1 hst type_env
+			   print_unqual iNTERACTIVE bound_names rn_stmt
 
 	; case maybe_tc_return of
 		Nothing -> return (pcs0, Nothing)
-- 
1.7.10.4