[commit: ghc] wip/dup_app: Reduce dupAppSize (d4d7601)

[git at git.haskell.org]

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

On branch  : wip/dup_app
Link       : http://ghc.haskell.org/trac/ghc/changeset/d4d760150a596fba0e3cc2753da8e1b2f1ba503d/ghc

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

commit d4d760150a596fba0e3cc2753da8e1b2f1ba503d
Author: alexbiehl <alex.biehl at gmail.com>
Date:   Wed Jan 25 10:23:37 2017 +0100

    Reduce dupAppSize


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

d4d760150a596fba0e3cc2753da8e1b2f1ba503d
 compiler/coreSyn/CoreUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs
index d8e34ad..a7ef8ae 100644
--- a/compiler/coreSyn/CoreUtils.hs
+++ b/compiler/coreSyn/CoreUtils.hs
@@ -978,7 +978,7 @@ exprIsDupable dflags e
     decrement n = Just (n-1)
 
 dupAppSize :: Int
-dupAppSize = 8   -- Size of term we are prepared to duplicate
+dupAppSize = 4   -- Size of term we are prepared to duplicate
                  -- This is *just* big enough to make test MethSharing
                  -- inline enough join points.  Really it should be
                  -- smaller, and could be if we fixed Trac #4960.