Commit 6b44e7b2 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Print the number of jobs we're using.

As requested by @hvr.
parent c7852b5a
......@@ -1072,6 +1072,7 @@ performInstallations verbosity
when parallelInstall $
notice verbosity $ "Notice: installing into a sandbox located at "
++ sandboxDir
info verbosity $ "Using " ++ (show numJobs) ++ " threads."
jobControl <- if parallelInstall then newParallelJobControl numJobs
else newSerialJobControl
......
......@@ -81,7 +81,8 @@ import Distribution.Simple.Setup (HaddockFlags)
import qualified Distribution.Simple.Setup as Setup
import Distribution.Simple.Command (commandShowOptions)
import Distribution.Simple.Utils (die, notice, noticeNoWrap, debug)
import Distribution.Simple.Utils (die, info, notice, noticeNoWrap
,debug)
import Distribution.Verbosity
import Distribution.Text
......@@ -176,7 +177,8 @@ runProjectPreBuildPhase
(projectConfigShared projectConfig)
(projectConfigBuildOnly projectConfig)
(projectConfigBuildOnly cliConfig)
info verbosity $ "Using " ++ (show . buildSettingNumJobs $ buildSettings)
++ " threads."
-- The plan for what to do is represented by an 'ElaboratedInstallPlan'
-- Now given the specific targets the user has asked for, decide
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment