File tree Expand file tree Collapse file tree 1 file changed +5
-1
lines changed
src/FSharp.Control.TaskSeq Expand file tree Collapse file tree 1 file changed +5
-1
lines changed Original file line number Diff line number Diff line change @@ -818,12 +818,14 @@ module internal TaskSeqInternal =
818818
819819 | Exclusive, PredicateAsync predicate -> // skipWhileAsync
820820 let mutable cont = true
821+
821822 if more then
822823 let! ok = predicate e.Current
823824 cont <- ok
824825
825826 while more && cont do
826827 let! moveNext = e.MoveNextAsync()
828+
827829 if moveNext then
828830 let! ok = predicate e.Current
829831 cont <- ok
@@ -840,20 +842,22 @@ module internal TaskSeqInternal =
840842
841843 | Inclusive, PredicateAsync predicate -> // skipWhileInclusiveAsync
842844 let mutable cont = true
845+
843846 if more then
844847 let! ok = predicate e.Current
845848 cont <- ok
846849
847850 while more && cont do
848851 let! moveNext = e.MoveNextAsync()
852+
849853 if moveNext then
850854 let! ok = predicate e.Current
851855 cont <- ok
852856
853857 more <- moveNext
854858
855859 if more then
856- // get the rest, this gives 1 or more semantics
860+ // get the rest, this gives 1 or more semantics
857861 while ! e.MoveNextAsync() do
858862 yield e.Current
859863 }
You can’t perform that action at this time.
0 commit comments