Commit cf872d0f authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Very minor refactoring

parent 9a4c93a5
......@@ -1008,8 +1008,9 @@ mkLam env bndrs body
| dopt Opt_DoLambdaEtaExpansion dflags,
not (inGentleMode env), -- In gentle mode don't eta-expansion
any isRuntimeVar bndrs -- because it can clutter up the code
-- because it can clutter up the code
-- with casts etc that may not be removed
not (all isTyVar bndrs) -- Don't eta expand type abstractions
= do { let body' = tryEtaExpansion dflags body
; return (mkLams bndrs body') }
......
Markdown is supported
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