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-13 19:27:03 +03:00
parent d2e980f4a1
commit 6baa813f7b
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-peer/app/BlockDownloadNew.hs
View File

@ -476,8 +476,6 @@ downloadFromPeer t bu cache env h peer = liftIO $ withPeerM env do
lift $ request peer req lift $ request peer req
-- pause @'MilliSeconds ( rtt * 0.01 )
t0 <- getTimeCoarse t0 <- getTimeCoarse
let watchdog = fix \next -> do let watchdog = fix \next -> do
@ -499,7 +497,7 @@ downloadFromPeer t bu cache env h peer = liftIO $ withPeerM env do
atomically do atomically do
-- wx0 <- readTVar _wx -- wx0 <- readTVar _wx
let wx1 = 1.50 * realToFrac (t1 - t0) * 100 / 1e6 -- millis let wx1 = 100 * realToFrac (t1 - t0) / 1e6 -- millis
writeTVar _wx wx1 writeTVar _wx wx1
case r of case r of