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

Very minor refactoring

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