[project @ 2002-10-29 17:56:58 by simonpj]

Oops... add missing free-vars

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}