Fix issue in ValueOption|Option.Sequence

fsprojects · Nov 18, 2023 · 7973ce5 · 7973ce5
1 parent a5aee9a
commit 7973ce5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/FSharpPlus/Extensions/Extensions.fs b/src/FSharpPlus/Extensions/Extensions.fs
@@ -140,7 +140,7 @@ module Extensions =
             let mutable accumulator = ArrayCollector<'t> ()
             let mutable noneFound = false
             use e = t.GetEnumerator ()
-            while e.MoveNext () && noneFound do
+            while e.MoveNext () && not noneFound do
                 match e.Current with
                 | Some v -> accumulator.Add v
                 | None -> noneFound <-  true
@@ -168,7 +168,7 @@ module Extensions =
             let mutable accumulator = ArrayCollector<'t> ()
             let mutable noneFound = false
             use e = t.GetEnumerator ()
-            while e.MoveNext () && noneFound do
+            while e.MoveNext () && not noneFound do
                 match e.Current with
                 | ValueSome v -> accumulator.Add v
                 | ValueNone -> noneFound <-  true