voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

updated

This commit is contained in:
voidlizard 2025-08-14 08:31:57 +03:00
parent 241b6346b5
commit 802f6d65f3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
View File

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