Merge pull request #3884 from 23Skidoo/print-num-jobs

Print the number of jobs we're using.
ghc · Sep 22, 2016 · 4b7ccf4 · 4b7ccf4
2 parents c7852b5 + 6b44e7b
commit 4b7ccf4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/cabal-install/Distribution/Client/Install.hs b/cabal-install/Distribution/Client/Install.hs
@@ -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

diff --git a/cabal-install/Distribution/Client/ProjectOrchestration.hs b/cabal-install/Distribution/Client/ProjectOrchestration.hs
@@ -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