[commit: ghc] wip/nfs-locking: Limit Make's thread (703429d)

[git at git.haskell.org]

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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/703429d917a4349d0a7ec8809dfb41c8b3433937/ghc

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

commit 703429d917a4349d0a7ec8809dfb41c8b3433937
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Wed Oct 5 17:36:32 2016 +0100

    Limit Make's thread
    
    See #289.


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

703429d917a4349d0a7ec8809dfb41c8b3433937
 src/Settings/Builders/Make.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Settings/Builders/Make.hs b/src/Settings/Builders/Make.hs
index d6b7dbf..1e55d9a 100644
--- a/src/Settings/Builders/Make.hs
+++ b/src/Settings/Builders/Make.hs
@@ -7,7 +7,7 @@ import Settings.Paths
 makeBuilderArgs :: Args
 makeBuilderArgs = do
     threads <- shakeThreads <$> lift getShakeOptions
-    let t = show threads
+    let t = show $ max 4 (threads - 2) -- Don't use all Shake's threads
     mconcat
         [ builder (Make gmpBuildPath     ) ? append ["MAKEFLAGS=-j" ++ t]
         , builder (Make libffiBuildPath  ) ? append ["MAKEFLAGS=-j" ++ t, "install"]