synchronize source repos concurrently

haskell · Mar 26, 2024 · 6de4dd9 · 6de4dd9
1 parent d26c3b8
commit 6de4dd9
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 1 deletion.
diff --git a/cabal-install/src/Distribution/Client/ProjectConfig.hs b/cabal-install/src/Distribution/Client/ProjectConfig.hs
@@ -1338,12 +1338,13 @@ syncAndReadSourcePackagesRemoteRepos
             ]
 
     let progPathExtra = fromNubList projectConfigProgPathExtra
+    let numJobs = 4 -- hardcoded for now
     getConfiguredVCS <- delayInitSharedResources $ \repoType ->
       let vcs = Map.findWithDefault (error $ "Unknown VCS: " ++ prettyShow repoType) repoType knownVCSs
        in configureVCS verbosity progPathExtra vcs
 
     concat
-      <$> sequenceA
+      <$> sequenceConcurrentlyBoundedRebuild numJobs
         [ rerunIfChanged verbosity monitor repoGroup' $ do
           vcs' <- getConfiguredVCS repoType
           syncRepoGroupAndReadSourcePackages vcs' pathStem repoGroup'

diff --git a/...s/IntegrationTests2/haddock-project/dependencies/store/ghc-9.6.3/package.db/package.cache b/...s/IntegrationTests2/haddock-project/dependencies/store/ghc-9.6.3/package.db/package.cache
diff --git a/...egrationTests2/haddock-project/dependencies/store/ghc-9.6.3/package.db/package.cache.lock b/...egrationTests2/haddock-project/dependencies/store/ghc-9.6.3/package.db/package.cache.lock