diff options
| author | simonpj@microsoft.com <unknown> | 2010-01-05 10:18:33 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-01-05 10:18:33 +0000 |
| commit | cf872d0fd1f7b88eaba55d2256e7a05e676e2a9d (patch) | |
| tree | ef0d4ff2fda78165cf11221aabc502fb1f09b453 /compiler | |
| parent | 9a4c93a59e008ddc376fde5f9eb468b762f0d0a7 (diff) | |
| download | haskell-cf872d0fd1f7b88eaba55d2256e7a05e676e2a9d.tar.gz | |
Very minor refactoring
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/simplCore/SimplUtils.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index 4a8ad544a9..1c08d6bf28 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -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') } |