Undo maxConcurrency testing

ionide · Dec 8, 2024 · 2056006 · 2056006
1 parent b9c17c1
commit 2056006
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/FsAutoComplete.Core/Utils.fs b/src/FsAutoComplete.Core/Utils.fs
@@ -239,11 +239,10 @@ module Async =
   /// <summary>Creates an asynchronous computation that executes all the given asynchronous computations, using 75% of the Environment.ProcessorCount</summary>
   /// <param name="computations">A sequence of distinct computations to be parallelized.</param>
   let parallel75 computations =
-    // let maxConcurrency =
-    //   Math.Max(1.0, Math.Floor((float System.Environment.ProcessorCount) * 0.75))
+    let maxConcurrency =
+      Math.Max(1.0, Math.Floor((float System.Environment.ProcessorCount) * 0.75))
 
-    // Async.Parallel(computations, int maxConcurrency)
-    Async.Parallel computations
+    Async.Parallel(computations, int maxConcurrency)
 
   [<RequireQualifiedAccess>]
   module Array =