Hang when argument not supplied (#171)

This commit is contained in:
Patrick Stevens
2024-10-30 19:33:28 +00:00
committed by GitHub
parent a694637958
commit ace1417de6
12 changed files with 117 additions and 7 deletions

View File

@@ -314,7 +314,7 @@ type ParallelQueue
let t () =
{ new ThunkEvaluator<_> with
member _.Eval<'b> (t : unit -> 'b) rc =
let tcs = TaskCompletionSource ()
let tcs = TaskCompletionSource TaskCreationOptions.RunContinuationsAsynchronously
use ec = ExecutionContext.Capture ()
fun () ->