Disable some logs.

Author: nojaf

tests/ParallelTypeCheckingTests/Code/Parallel.fs

@@ -24,18 +24,18 @@ let processInParallel
     let mutable processedCount = 0
 
     let processItem item =
-        printfn $"Processing {_itemToString item}"
+        // printfn $"Processing {_itemToString item}"
         let toSchedule = work item
 
         let processedCount =
             lock processedCountLock (fun () ->
                 processedCount <- processedCount + 1
                 processedCount)
 
-        let toScheduleString =
-            toSchedule |> Array.map _itemToString |> (fun names -> String.Join(", ", names))
+        // let toScheduleString =
+            // toSchedule |> Array.map _itemToString |> (fun names -> String.Join(", ", names))
 
-        printfn $"Scheduling {toSchedule.Length} items: {toScheduleString}"
+        // printfn $"Scheduling {toSchedule.Length} items: {toScheduleString}"
         toSchedule |> Array.iter bc.Add
         processedCount
 

tests/ParallelTypeCheckingTests/Code/ParallelTypeChecking.fs

@@ -88,10 +88,10 @@ let CheckMultipleInputsInParallel
             let checkForErrors2 () = priorErrors || (logger.ErrorCount > 0)
 
             let tcSink = TcResultsSink.NoSink
-            let c = cnt
+            // let c = cnt
             cnt <- cnt + 1
 
-            printfn $"#{c} [thread {Thread.CurrentThread.ManagedThreadId}] Type-checking {input.FileName}"
+            // printfn $"#{c} [thread {Thread.CurrentThread.ManagedThreadId}] Type-checking {input.FileName}"
 
             let! f =
                 CheckOneInput'(