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

[ghc-hetmet.git] / ghc / compiler / rename / RnExpr.lhs

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index e8e3f4f..c4ddc27 100644 (file)
--- 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 <+>