wip

hbs2-peer/app/Brains.hs

@@ -178,7 +178,7 @@ instance ( Hashable (Peer e)
 
     pure (not kicked && postpone)
     where
-      simK = 2
+      simK = 4
 
   -- FIXME: investigate-simK-affects-anything
   --   проверить
@@ -191,7 +191,7 @@ instance ( Hashable (Peer e)
     where
       -- TODO: simK-to-settings
       --   в настройки, если на что-либо влияет
-      simK = 2
+      simK = 4
 
   advisePeersForBlock b h = do
     r <- liftIO $ findPeers b h

hbs2-peer/app/DownloadQ.hs

@@ -42,9 +42,9 @@ downloadQueue _ brains denv = do
         addDownload mzero (fromHashRef h)
 
   -- FIXME: timeout-hardcodes
-  let refs = listDownloads @e brains <&> fmap (set _2 10)
+  let refs = listDownloads @e brains <&> fmap (set _2 30)
 
-  polling (Polling 5 10) refs $ \ref -> do
+  polling (Polling 5 20) refs $ \ref -> do
     missed <- findMissedBlocks sto ref
 
     debug $ "DownloadQ. check" <+> pretty ref <+> pretty (length missed)