From 3411b7815fb09683a212e53918060719ca659be0 Mon Sep 17 00:00:00 2001
From: Abel Braaksma <abel.online@xs4all.nl>
Date: Thu, 3 Nov 2022 01:17:02 +0100
Subject: [PATCH] Fix bug #65, prevent TaskSeq.item and tryItem to read beyond
 the item it found

---
 src/FSharpy.TaskSeq/TaskSeqInternal.fs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/FSharpy.TaskSeq/TaskSeqInternal.fs b/src/FSharpy.TaskSeq/TaskSeqInternal.fs
index 6a82abff..9acfd42a 100644
--- a/src/FSharpy.TaskSeq/TaskSeqInternal.fs
+++ b/src/FSharpy.TaskSeq/TaskSeqInternal.fs
@@ -297,10 +297,11 @@ module internal TaskSeqInternal =
             while go && idx <= index do
                 if idx = index then
                     foundItem <- Some e.Current
-
-                let! step = e.MoveNextAsync()
-                go <- step
-                idx <- idx + 1
+                    go <- false
+                else
+                    let! step = e.MoveNextAsync()
+                    go <- step
+                    idx <- idx + 1
 
             return foundItem
     }