From: simonpj <unknown>
Date: Tue, 10 Dec 2002 15:42:19 +0000 (+0000)
Subject: [project @ 2002-12-10 15:42:19 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1378
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7126bc3bf149e3c54259ba807c2d57d4a5253a6a;p=ghc-hetmet.git

[project @ 2002-12-10 15:42:19 by simonpj]
Wibble
---

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index e8e3f4f..c4ddc27 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -911,7 +911,7 @@ doStmtListErr do_or_lc e
 			other   -> "do"
 
 #ifdef GHCI 
-checkTH e what = returnRn ()	-- OK
+checkTH e what = returnM ()	-- OK
 #else
 checkTH e what 	-- Raise an error in a stage-1 compiler
   = addErr (vcat [ptext SLIT("Template Haskell") <+> text what <+>