From: sof <unknown>
Date: Mon, 16 Jul 2001 00:43:56 +0000 (+0000)
Subject: [project @ 2001-07-16 00:43:56 by sof]
X-Git-Tag: Approximately_9120_patches~1551
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=50e701e848e9cb64ea758cf80d52ae21139911d0;p=ghc-hetmet.git

[project @ 2001-07-16 00:43:56 by sof]
hscStmt: track changes made to the TC entry points typecheckExpr, typecheckStmt
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 16a9c01..6f72a2b 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -513,11 +513,12 @@ hscStmt dflags hst hit pcs0 icontext stmt just_expr
 		-- Typecheck it
 	  maybe_tc_return <- 
 	    if just_expr 
-		then case rn_stmt of { (syn, ExprStmt e _ _, decls) -> 
+		then case rn_stmt of { (ExprStmt e _ _, decls) -> 
 		     typecheckExpr dflags pcs1 hst type_env
-			   print_unqual iNTERACTIVE (syn,e,decls) }
-		else typecheckStmt dflags pcs1 hst type_env
-			   print_unqual iNTERACTIVE bound_names rn_stmt
+			   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) }
 
 	; case maybe_tc_return of
 		Nothing -> return (pcs0, Nothing)