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:
voidlizard 2024-10-13 11:32:27 +03:00
parent 98290d6c76
commit 21a6057b39
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/MailboxProtoWorker.hs
View File

@ -606,7 +606,7 @@ mailboxProtoWorker readConf me@MailboxProtoWorker{..} = do
<&> HM.toList <&> HM.toList
<&> fmap (,10) <&> fmap (,10)
polling (Polling 30 30) mail $ \(pk, down@MailboxDownload{..}) -> do polling (Polling 2 2) mail $ \(pk, down@MailboxDownload{..}) -> do
done <- findMissedBlocks mpwStorage mailboxStatusRef <&> L.null done <- findMissedBlocks mpwStorage mailboxStatusRef <&> L.null
fails <- newTVarIO 0 fails <- newTVarIO 0