Fix SetLevels for join points
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 17 Feb 2017 15:03:52 +0000 (15:03 +0000)
committerBen Gamari <ben@smart-cactus.org>
Tue, 21 Feb 2017 14:31:17 +0000 (09:31 -0500)
commit6e3288473718fcd8e6ad15a5e7db5b7ab43e9cbb
tree0e2e4a76da0c4df9595c9d5862f02549675e4615
parente790126cd57ab39649b1fd42996733fafe20eb34
Fix SetLevels for join points

This fixes Trac #13255.  The trouble was that we had a bottoming
join point, and tried to float it to top level. But it had free
JoinIds, so we tried to abstract over them.

Disaster.  Lint should have caught it, but didn't (now fixed).

This patch fixes the original problem.
compiler/simplCore/SetLevels.hs