Disable some logs.

safesparrow · Nov 25, 2022 · 203aee3 · 203aee3
1 parent a7cb8c9
commit 203aee3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/tests/ParallelTypeCheckingTests/Code/Parallel.fs b/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
 

diff --git a/tests/ParallelTypeCheckingTests/Code/ParallelTypeChecking.fs b/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'(