From 1f1c9be9dfbae87acbfcb2c0be9f492f66c154fb Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Fri, 6 Dec 2024 13:50:12 +0300
Subject: [PATCH] wip26

---
 hbs2-git3/app/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs
index bf8f8e39..beff3540 100644
--- a/hbs2-git3/app/Main.hs
+++ b/hbs2-git3/app/Main.hs
@@ -968,7 +968,8 @@ traverseToCBlock sto cblock dig process = do
 
       deeper <- dig h
 
-      if not deeper then
+      if not deeper then do
+        atomically $ modifyTVar done ( HS.insert h )
         next WNextSBlock
       else do
         sections <- cached cache h $ S.toList_ (readCBlock sto h S.yield)