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:
Dmitry Zuikov 2023-10-21 16:05:01 +03:00
parent 983f24ef78
commit 9edbe5f7c9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@ -42,9 +42,9 @@ downloadQueue _ brains denv = do
addDownload mzero (fromHashRef h) addDownload mzero (fromHashRef h)
-- FIXME: timeout-hardcodes -- 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 missed <- findMissedBlocks sto ref
debug $ "DownloadQ. check" <+> pretty ref <+> pretty (length missed) debug $ "DownloadQ. check" <+> pretty ref <+> pretty (length missed)