diff options
Diffstat (limited to 'compiler/coreSyn/CoreUnfold.hs')
| -rw-r--r-- | compiler/coreSyn/CoreUnfold.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/coreSyn/CoreUnfold.hs b/compiler/coreSyn/CoreUnfold.hs index 36ea382ae3..e72d95ae04 100644 --- a/compiler/coreSyn/CoreUnfold.hs +++ b/compiler/coreSyn/CoreUnfold.hs @@ -523,8 +523,9 @@ sizeExpr dflags bOMB_OUT_SIZE top_args expr size_up_app is fun [arg] (if isRealWorldExpr arg then 1 else 0) size_up is (Lam b e) - | isId b && not (isRealWorldId b) = lamScrutDiscount dflags (size_up is e `addSizeN` 10) - | otherwise = size_up is e + | isId b && not (isRealWorldId b) = lamScrutDiscount dflags (size_up is' e `addSizeN` 10) + | otherwise = size_up is' e + where is' = extendInScopeSet is b size_up is (Let (NonRec binder rhs) body) = let |