[commit: ghc] wip/T12626: seqExpr: No need to unpack Apps (5afc920)

[git at git.haskell.org]

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

On branch  : wip/T12626
Link       : http://ghc.haskell.org/trac/ghc/changeset/5afc920326f729fa5d1065b4792c21b718cfbde6/ghc

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

commit 5afc920326f729fa5d1065b4792c21b718cfbde6
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Mon Sep 26 23:38:25 2016 -0400

    seqExpr: No need to unpack Apps


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

5afc920326f729fa5d1065b4792c21b718cfbde6
 compiler/coreSyn/CoreSeq.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/coreSyn/CoreSeq.hs b/compiler/coreSyn/CoreSeq.hs
index d426bd3..dcfa64a 100644
--- a/compiler/coreSyn/CoreSeq.hs
+++ b/compiler/coreSyn/CoreSeq.hs
@@ -54,7 +54,7 @@ seqRules (BuiltinRule {} : rules) = seqRules rules
 seqExpr :: CoreExpr -> ()
 seqExpr (Var v)         = v `seq` ()
 seqExpr (Lit lit)       = lit `seq` ()
-seqExpr (App f a)       = seqExpr f `seq` seqExpr a
+seqExpr (Apps f n as)   = seqExpr f `seq` n `seq` seqExprs as
 seqExpr (Lam b e)       = seqBndr b `seq` seqExpr e
 seqExpr (Let b e)       = seqBind b `seq` seqExpr e
 seqExpr (Case e b t as) = seqExpr e `seq` seqBndr b `seq` seqType t `seq` seqAlts as