From: simonpj <unknown>
Date: Tue, 5 Nov 2002 09:01:10 +0000 (+0000)
Subject: [project @ 2002-11-05 09:01:10 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1481
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b3034110152f496dd1312e5ce5d6f08c3d6f49f7;p=ghc-hetmet.git

[project @ 2002-11-05 09:01:10 by simonpj]
Wibble when renaming splices
---

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index e67f32e..97697a0 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -241,7 +241,8 @@ rnExpr (HsSplice n e loc)
     checkGHCI (thErr "splice")		`thenM_`
     newLocalsRn [(n,loc)]		`thenM` \ [n'] ->
     rnExpr e 				`thenM` \ (e', fvs_e) ->
-    returnM (HsSplice n' e' loc, fvs_e)    
+    returnM (HsSplice n' e' loc, fvs_e `addOneFV` qTyConName)
+	-- The qTyCon brutally pulls in all the meta stuff
 
 rnExpr (HsReify (Reify flavour name))
   = checkGHCI (thErr "reify")		`thenM_`