From 67eedc225a7e9af8575705af7ce6e998cf5ea6bd Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 29 Oct 2002 17:56:58 +0000
Subject: [PATCH] [project @ 2002-10-29 17:56:58 by simonpj] Oops... add
 missing free-vars

---
 ghc/compiler/rename/RnSource.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 0e53b07..4314697 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -274,8 +274,9 @@ rnBindsAndThen EmptyBinds	       thing_inside = thing_inside EmptyBinds
 rnBindsAndThen (MonoBind bind sigs _)  thing_inside = rnMonoBindsAndThen bind sigs thing_inside
 rnBindsAndThen (IPBinds binds is_with) thing_inside
   = warnIf is_with withWarning			`thenM_`
-    rnIPBinds binds				`thenM` \ (binds',fvBinds) ->
-    thing_inside (IPBinds binds' is_with)
+    rnIPBinds binds				`thenM` \ (binds',fv_binds) ->
+    thing_inside (IPBinds binds' is_with)	`thenM` \ (thing, fvs_thing) ->
+    returnM (thing, fvs_thing `plusFV` fv_binds)
 \end{code}
 
 
-- 
1.7.10.4