[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 (file)
--- 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}