From 2265544ef758c965860bb237acaf60941cce213e Mon Sep 17 00:00:00 2001 From: voidlizard Date: Thu, 14 Nov 2024 12:55:04 +0300 Subject: [PATCH] DDD works --- hbs2-peer/app/BlockDownloadNew.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/BlockDownloadNew.hs b/hbs2-peer/app/BlockDownloadNew.hs index ee9aa6f2..a08e3bd5 100644 --- a/hbs2-peer/app/BlockDownloadNew.hs +++ b/hbs2-peer/app/BlockDownloadNew.hs @@ -661,7 +661,7 @@ downloadDispatcher brains env = flip runContT pure do Just s -> pure s Nothing -> do -- TODO: semaphore-hardcode - new <- TSem.newTSem 10 + new <- TSem.newTSem 50 modifyTVar _psem (HM.insert nonce new) pure new