From: simonpj <unknown>
Date: Mon, 11 Nov 2002 11:04:10 +0000 (+0000)
Subject: [project @ 2002-11-11 11:04:10 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1459
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0e6a76a1182be8336cfaaa6bf482c57a89193372;p=ghc-hetmet.git

[project @ 2002-11-11 11:04:10 by simonpj]
-----------------
	Template Haskell
	-----------------

Template Haskell should now work in all modes!

Remove test for --make/--interactive mode.
---

diff --git a/ghc/compiler/typecheck/TcSplice.lhs b/ghc/compiler/typecheck/TcSplice.lhs
index 18f6996..31205e7 100644
--- a/ghc/compiler/typecheck/TcSplice.lhs
+++ b/ghc/compiler/typecheck/TcSplice.lhs
@@ -232,13 +232,6 @@ runMeta expr
 
 	print_unqual = unQualInScope rdr_env
     in
-    if (ghci_mode == OneShot) then
-	failWithTc (ptext SLIT("You must use --make or --interactive to run splice expressions"))
-	-- The reason for this is that the demand-linker doesn't have
-	-- enough information available to link all the things that
-	-- are needed when you try to run a splice
-    else
-
     ioToTcRn (HscMain.compileExpr hsc_env pcs this_mod 
 				  print_unqual expr) `thenM` \ hval ->