Skip to content

Commit 1314a77

Browse files
committed
Fix TaskSeq.skip skipped one too few, and simplify
1 parent 0a7be36 commit 1314a77

File tree

1 file changed

+1
-5
lines changed

1 file changed

+1
-5
lines changed

src/FSharp.Control.TaskSeq/TaskSeqInternal.fs

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -653,12 +653,8 @@ module internal TaskSeqInternal =
653653
if not step then
654654
raiseInsufficient ()
655655

656-
let mutable cont = true
657-
658-
while cont do
656+
while! e.MoveNextAsync() do
659657
yield e.Current
660-
let! moveNext = e.MoveNextAsync()
661-
cont <- moveNext
662658

663659
}
664660
| Drop ->

0 commit comments

Comments
 (0)