Commit 67eedc22 authored by simonpj's avatar simonpj
Browse files

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

Oops... add missing free-vars
parent 69d02b38
...@@ -274,8 +274,9 @@ rnBindsAndThen EmptyBinds thing_inside = thing_inside EmptyBinds ...@@ -274,8 +274,9 @@ rnBindsAndThen EmptyBinds thing_inside = thing_inside EmptyBinds
rnBindsAndThen (MonoBind bind sigs _) thing_inside = rnMonoBindsAndThen bind sigs thing_inside rnBindsAndThen (MonoBind bind sigs _) thing_inside = rnMonoBindsAndThen bind sigs thing_inside
rnBindsAndThen (IPBinds binds is_with) thing_inside rnBindsAndThen (IPBinds binds is_with) thing_inside
= warnIf is_with withWarning `thenM_` = warnIf is_with withWarning `thenM_`
rnIPBinds binds `thenM` \ (binds',fvBinds) -> rnIPBinds binds `thenM` \ (binds',fv_binds) ->
thing_inside (IPBinds binds' is_with) thing_inside (IPBinds binds' is_with) `thenM` \ (thing, fvs_thing) ->
returnM (thing, fvs_thing `plusFV` fv_binds)
\end{code} \end{code}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment