From: simonpj <unknown>
Date: Thu, 13 Nov 2003 15:02:53 +0000 (+0000)
Subject: [project @ 2003-11-13 15:02:53 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~255
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6e6b6f2c929ee59c0ab961f108406a332bda1dee;p=ghc-hetmet.git

[project @ 2003-11-13 15:02:53 by simonpj]
Stop after renaming if errors are found in TH
---

diff --git a/ghc/compiler/typecheck/TcSplice.lhs b/ghc/compiler/typecheck/TcSplice.lhs
index b7b3c29..86f8866 100644
--- a/ghc/compiler/typecheck/TcSplice.lhs
+++ b/ghc/compiler/typecheck/TcSplice.lhs
@@ -206,7 +206,10 @@ tcTopSplice expr res_ty
 
     showSplice "expression" 
 	       zonked_q_expr (ppr expr2)	`thenM_`
-    rnExpr expr2				`thenM` \ (exp3, fvs) ->
+
+	-- Rename it, but bale out if there are errors
+	-- otherwise the type checker just gives more spurious errors
+    checkNoErrs (rnExpr expr2)			`thenM` \ (exp3, fvs) ->
 
     tcMonoExpr exp3 res_ty