X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnExpr.lhs;h=c4ddc279ba995f92d146f5503f9d132155157903;hb=7126bc3bf149e3c54259ba807c2d57d4a5253a6a;hp=e8e3f4fcec23b7b48213cd168a65b1c49e67855a;hpb=0917c5dbca6baf7ddb53147e4aa41f378e8a1a22;p=ghc-hetmet.git

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