We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
__debugPoint
1 parent a4a229b commit c30010aCopy full SHA for c30010a
src/FSharp.Control.TaskSeq/TaskExtensions.fs
@@ -67,6 +67,16 @@ module TaskExtensions =
67
this
68
.Using(
69
source.GetAsyncEnumerator(CancellationToken()),
70
- (fun e -> this.WhileAsync(e.MoveNextAsync, (fun sm -> (body e.Current).Invoke(&sm))))
+ (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
+ ))
81
)
82
.Invoke(&sm))
0 commit comments