From 802f6d65f3d11eec83a723d323506e4beddf780f Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Thu, 14 Aug 2025 08:31:57 +0300
Subject: [PATCH] updated

---
 hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs b/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
index d9affee4..eb31c34b 100644
--- a/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
+++ b/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
@@ -41,6 +41,9 @@ instance (MonadIO m, h ~ HbSync, Storage s h ByteString m) => MerkleWriter ByteS
   -- FIXME: concurrent-enqueue
   writeAsMerkle sto bs = do
 
+    -- FIXME:  may-be-twice-faster
+    --   Можно ускорить в два раза если выполнять
+    --   параллельно, но потребуется поменять MonadIO на MonadUnliftIO
     hashes <- do
       chu <- S.toList_ (readChunkedBS bs defBlockSize)
       for chu $ \chunk -> do