From 7126bc3bf149e3c54259ba807c2d57d4a5253a6a Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 10 Dec 2002 15:42:19 +0000
Subject: [PATCH] [project @ 2002-12-10 15:42:19 by simonpj] Wibble

---
 ghc/compiler/rename/RnExpr.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 <+>  
-- 
1.7.10.4