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

fixed wtf

This commit is contained in:
voidlizard 2024-11-05 19:25:59 +03:00
parent bc160b8335
commit 9b6496a89f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -337,7 +337,7 @@ downloadFromPeer t bu cache env h peer = liftIO $ withPeerM env do
s1 <- readTVarIO _sBlockChunks2 <&> IntMap.size s1 <- readTVarIO _sBlockChunks2 <&> IntMap.size
pause @'MilliSeconds ( max (realToFrac chunkN * rtt) 2000 ) pause @'MilliSeconds ( max (realToFrac chunkN * rtt) 2000 )
s2 <- readTVarIO _sBlockChunks2 <&> IntMap.size s2 <- readTVarIO _sBlockChunks2 <&> IntMap.size
when (s1 == s2) next when (s1 /= s2) next
r <- liftIO $ race watchdog do r <- liftIO $ race watchdog do