synchronize source repos concurrently

edmundnoble · Apr 7, 2024 · 40cd496 · 40cd496
1 parent 5a36067
commit 40cd496
Show file tree

Hide file tree

Showing 2 changed files with 7 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/changelog.d/synchronize-source-repos-concurrently b/changelog.d/synchronize-source-repos-concurrently
@@ -0,0 +1,5 @@
+synopsis: Synchronize source repositories concurrently
+packages: cabal-install
+prs: #0000
+significance: significant
+