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