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

wip

This commit is contained in:
voidlizard 2024-11-05 14:11:30 +03:00
parent eadd58cc6e
commit 405f749d61
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
hbs2-peer/app/RPC2.hs
View File

@ -294,16 +294,21 @@ downloadFromPeer t bu cache env h peer = liftIO $ withPeerM env do
callCC $ \exit2 -> do
for_ bursts $ \(i,chunkN) -> do
-- s0 <- readTVarIO _sBlockChunks2 <&> IntMap.size
-- count <- newTVarIO 0
atomically $ flushTQueue chuQ
let req = BlockChunks @e coo (BlockGetChunks h chunkSize (fromIntegral i) (fromIntegral chunkN))
lift $ request peer req
r <- liftIO $ race (pause t) do
atomically do
-- readTQueue chuQ
pieces <- readTVar _sBlockChunks2
let done = and [ IntMap.member j pieces | j <- [i .. i + chunkN-1] ]
unless done retry
pieces <- readTVar _sBlockChunks2
let done = and [ IntMap.member j pieces | j <- [i .. i + chunkN-1] ]
unless done retry
atomically $ flushTQueue chuQ