diff options
author | Ben Gamari <bgamari.foss@gmail.com> | 2017-02-07 21:33:16 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2017-02-07 22:38:34 -0500 |
commit | 8c25be80a41f436225f4d18ec4f624a17562a490 (patch) | |
tree | 4da758eeb9da0d282385d918be0990d123aaa85b /compiler/coreSyn/CorePrep.hs | |
parent | 0aa3f8d4645c078ae07509870eae539e42483f78 (diff) | |
download | haskell-8c25be80a41f436225f4d18ec4f624a17562a490.tar.gz |
cpeApp: Make Int accumulator strict
Test Plan: Validate
Reviewers: austin, dfeuer
Subscribers: dfeuer, thomie
Differential Revision: https://phabricator.haskell.org/D3093
Diffstat (limited to 'compiler/coreSyn/CorePrep.hs')
-rw-r--r-- | compiler/coreSyn/CorePrep.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CorePrep.hs b/compiler/coreSyn/CorePrep.hs index ab64449386..ce6eba2466 100644 --- a/compiler/coreSyn/CorePrep.hs +++ b/compiler/coreSyn/CorePrep.hs @@ -774,7 +774,7 @@ cpeApp top_env expr collect_args :: CoreExpr -> (CoreExpr, [ArgInfo], Int) collect_args e = go e [] 0 where - go (App fun arg) as depth + go (App fun arg) as !depth = go fun (CpeApp arg : as) (if isTyCoArg arg then depth else depth + 1) go (Cast fun co) as depth |