Fix #13233 by checking for lev-poly primops
Fix #13233 by checking for lev-poly primops

The implementation plan is all in Note [Detecting forced eta expansion]
in DsExpr.

ezyang/ghc,sdiehl/ghc,shlevy/ghc,ezyang/ghc,ezyang/ghc,sdiehl/ghc,sdiehl/ghc,shlevy/ghc,shlevy/ghc,sdiehl/ghc,sdiehl/ghc,sdiehl/ghc,shlevy/ghc,shlevy/ghc,ezyang/ghc,ezyang/ghc,sdiehl/ghc,shlevy/ghc,ezyang/ghc,shlevy/ghc,ezyang/ghc