From 2ee94a18a65a3ea93aa899b279e5de956ea75f35 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Wed, 13 Nov 2024 19:27:03 +0300
Subject: [PATCH] wip

---
 hbs2-peer/app/BlockDownloadNew.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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