From 9cf8c0f17edae0657b51b2316428575bb18e4685 Mon Sep 17 00:00:00 2001 From: Jimmy Byrd Date: Sun, 8 Dec 2024 14:30:01 -0500 Subject: [PATCH] Undo maxConcurrency testing --- src/FsAutoComplete.Core/Utils.fs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/FsAutoComplete.Core/Utils.fs b/src/FsAutoComplete.Core/Utils.fs index 22cdf57e3..f440172b2 100644 --- a/src/FsAutoComplete.Core/Utils.fs +++ b/src/FsAutoComplete.Core/Utils.fs @@ -239,11 +239,10 @@ module Async = /// Creates an asynchronous computation that executes all the given asynchronous computations, using 75% of the Environment.ProcessorCount /// A sequence of distinct computations to be parallelized. 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) [] module Array =