Bypass a thread-hop by using StartImmediateAsTask

fsprojects · Nov 2, 2023 · c175ef1 · c175ef1
1 parent 32c7a47
commit c175ef1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/FSharp.Control.TaskSeq/AsyncExtensions.fs b/src/FSharp.Control.TaskSeq/AsyncExtensions.fs
@@ -8,5 +8,5 @@ module AsyncExtensions =
 
         member _.For(source: TaskSeq<'T>, action: 'T -> Async<unit>) =
             source
-            |> TaskSeq.iterAsync (action >> Async.StartAsTask)
+            |> TaskSeq.iterAsync (action >> Async.StartImmediateAsTask)
             |> Async.AwaitTask
diff --git a/src/FSharp.Control.TaskSeq/TaskSeqBuilder.fs b/src/FSharp.Control.TaskSeq/TaskSeqBuilder.fs
@@ -648,7 +648,7 @@ module HighPriority =
             ResumableTSC<'U>(fun sm ->
                 let mutable awaiter =
                     Async
-                        .StartAsTask(computation, cancellationToken = sm.Data.cancellationToken)
+                        .StartImmediateAsTask(computation, cancellationToken = sm.Data.cancellationToken)
                         .GetAwaiter()
 
                 let mutable __stack_fin = true