download tuned for low MTU values, needs investigation

hbs2-core/lib/HBS2/Defaults.hs

@@ -16,11 +16,11 @@ defBurstMax :: Integral a => a
 defBurstMax = 128
 
 defBurst :: Integral a => a
-defBurst = defBurstMax `div` 8
+defBurst = defBurstMax `div` 4
 
 -- defChunkSize :: Integer
 defChunkSize :: Integral a => a
-defChunkSize = 1400
+defChunkSize = 1024
 -- defChunkSize = 480
 
 defBlockSize :: Integer
@@ -36,7 +36,7 @@ defBlockDownloadQ :: Integral a => a
 defBlockDownloadQ = 65536*10
 
 defBlockDownloadThreshold :: Integral a => a
-defBlockDownloadThreshold = 2
+defBlockDownloadThreshold = 1
 
 -- typical block hash 530+ chunks * parallel wip blocks amount
 defProtoPipelineSize :: Int

hbs2-peer/app/BlockDownload.hs

@@ -665,8 +665,8 @@ blockDownloadLoop env0 = do
     updateRates e rates nonces = withPeerM e do
 
       let wRtt = 5
-      let wUdp = 1.75
-      let wTcp = 1.0
+      let wUdp = 1.5
+      let wTcp = 1.1
       let wS   = 1.5
       let eps  = 1e-8