fix: Make newSemaphoreJobControl respect verbosity

Author: wismill

cabal-install/src/Distribution/Client/JobControl.hs

@@ -171,13 +171,13 @@ readAllTChan qvar = go []
 --
 -- This uses the GHC -jsem option to allow GHC to take additional semaphore slots
 -- if we are not using them all.
-newSemaphoreJobControl :: WithCallStack (Int -> IO (JobControl IO a))
-newSemaphoreJobControl n
+newSemaphoreJobControl :: WithCallStack (Verbosity -> Int -> IO (JobControl IO a))
+newSemaphoreJobControl _ n
   | n < 1 || n > 1000 =
       error $ "newParallelJobControl: not a sensible number of jobs: " ++ show n
-newSemaphoreJobControl maxJobLimit = do
+newSemaphoreJobControl verbosity maxJobLimit = do
   sem <- freshSemaphore "cabal_semaphore" maxJobLimit
-  notice normal $
+  notice verbosity $
     "Created semaphore called "
       ++ getSemaphoreName (semaphoreName sem)
       ++ " with "

cabal-install/src/Distribution/Client/ProjectBuilding.hs

@@ -366,7 +366,7 @@ rebuildTargets
           NumJobs n -> newParallelJobControl (fromMaybe numberOfProcessors n)
           UseSem n ->
             if jsemSupported compiler
-              then newSemaphoreJobControl n
+              then newSemaphoreJobControl verbosity n
               else do
                 warn verbosity "-jsem is not supported by the selected compiler, falling back to normal parallelism control."
                 newParallelJobControl n