From 21a6057b39efb968f18849a5fe613b0e7851492f Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sun, 13 Oct 2024 11:32:27 +0300 Subject: [PATCH] wip --- hbs2-peer/app/MailboxProtoWorker.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/MailboxProtoWorker.hs b/hbs2-peer/app/MailboxProtoWorker.hs index 9a1c8bcd..bfa273fd 100644 --- a/hbs2-peer/app/MailboxProtoWorker.hs +++ b/hbs2-peer/app/MailboxProtoWorker.hs @@ -606,7 +606,7 @@ mailboxProtoWorker readConf me@MailboxProtoWorker{..} = do <&> HM.toList <&> 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 fails <- newTVarIO 0