Eta expansion and join points
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 26 Apr 2017 15:57:15 +0000 (16:57 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 28 Apr 2017 08:55:07 +0000 (09:55 +0100)
commit25754c83c9be3bf843310b1c7877c42fa3f9f3c7
tree4ac5750df24cf3297a81dcd060df0a5e15168bca
parent03ec7927f050c203a43843d95938ededf6d2c8f9
Eta expansion and join points

CoreArity.etaExpand tried to deal with eta-expanding expressions
with join points.  For example
    let j x = e in \y. b

But it is hard to eta-expand this in the "no-crap" way described in
Note [No crap in eta-expanded code], becuase it would mean pushing
the "apply to y" into the join RHS, and changing its type. And the
join might be recursive, and it might have an unfolding.

Moreover in elaborate cases like this I don't think we need the
no-crap thing.  So for now I'm simplifying the code by generating
   \z. (let j x = e in \y. b) z

Let's see if that gives rise to any problems.
See Note [Eta expansion for join points]
compiler/coreSyn/CoreArity.hs