diff options
| -rw-r--r-- | compiler/coreSyn/CoreUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs index d8e34adffb..a7ef8ae177 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. |