"Error in binding group" incorrectly thrown

[natefaubion]

module Foo where
foo = bar where bar r = r + 1
r = foo 2

Error at bad.purs line 3, column 5:
Error in binding group [foo,r]
foo may not be defined in the current scope.

The top-level r is conflicting with the r argument inside of foos where clause. It works if you change the argument name or top-level name to something else.

[paf31]

Adding this to 0.6, seems like it would be nice to have it fixed by then.

[paf31]

If anyone wants to have a go at fixing this before I get to it, the issue is that these two functions should not be in the same binding group. The fix is to ignore shadowed names here:

https://github.com/purescript/purescript/blob/master/src/Language/PureScript/Sugar/BindingGroups.hs#L92