[commit: ghc] master: cpeApp: Make Int accumulator strict (8c25be8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8c25be80a41f436225f4d18ec4f624a17562a490/ghc

>---------------------------------------------------------------

commit 8c25be80a41f436225f4d18ec4f624a17562a490
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Tue Feb 7 21:33:16 2017 -0500

    cpeApp: Make Int accumulator strict
    
    Test Plan: Validate
    
    Reviewers: austin, dfeuer
    
    Subscribers: dfeuer, thomie
    
    Differential Revision: https://phabricator.haskell.org/D3093


>---------------------------------------------------------------

8c25be80a41f436225f4d18ec4f624a17562a490
 compiler/coreSyn/CorePrep.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/coreSyn/CorePrep.hs b/compiler/coreSyn/CorePrep.hs
index ab64449..ce6eba2 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