From: simonpj <unknown>
Date: Tue, 29 Oct 2002 17:56:58 +0000 (+0000)
Subject: [project @ 2002-10-29 17:56:58 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1492
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=67eedc225a7e9af8575705af7ce6e998cf5ea6bd;p=ghc-hetmet.git

[project @ 2002-10-29 17:56:58 by simonpj]
Oops... add missing free-vars
---

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}