diff --git a/hbs2-peer/app/Brains.hs b/hbs2-peer/app/Brains.hs index 67981798..d829aba3 100644 --- a/hbs2-peer/app/Brains.hs +++ b/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 diff --git a/hbs2-peer/app/DownloadQ.hs b/hbs2-peer/app/DownloadQ.hs index 163a3fc9..d393f353 100644 --- a/hbs2-peer/app/DownloadQ.hs +++ b/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)