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 =