Skip to content

Commit c30010a

Browse files
committed
Add note on future usage of __debugPoint
1 parent a4a229b commit c30010a

File tree

1 file changed

+11
-1
lines changed

1 file changed

+11
-1
lines changed

src/FSharp.Control.TaskSeq/TaskExtensions.fs

Lines changed: 11 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -67,6 +67,16 @@ module TaskExtensions =
6767
this
6868
.Using(
6969
source.GetAsyncEnumerator(CancellationToken()),
70-
(fun e -> this.WhileAsync(e.MoveNextAsync, (fun sm -> (body e.Current).Invoke(&sm))))
70+
(fun e ->
71+
this.WhileAsync(
72+
// __debugPoint is only available from FSharp.Core 6.0.4
73+
//(fun () ->
74+
// Microsoft.FSharp.Core.CompilerServices.StateMachineHelpers.__debugPoint
75+
// "ForLoop.InOrToKeyword"
76+
77+
// e.MoveNextAsync()),
78+
e.MoveNextAsync,
79+
(fun sm -> (body e.Current).Invoke(&sm))
80+
))
7181
)
7282
.Invoke(&sm))

0 commit comments

Comments
 (0)