From b3034110152f496dd1312e5ce5d6f08c3d6f49f7 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 5 Nov 2002 09:01:10 +0000
Subject: [PATCH] [project @ 2002-11-05 09:01:10 by simonpj] Wibble when
 renaming splices

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

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_`
-- 
1.7.10.4