voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

reduced threads number

This commit is contained in:
Dmitry Zuikov 2024-03-17 20:30:36 +03:00
parent be84ee087b
commit 1d6a842048
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-core/lib/HBS2/Actors/Peer.hs
View File

@ -405,7 +405,7 @@ runPeerM :: forall e m . ( MonadIO m
runPeerM env f = do runPeerM env f = do
let de = view envDeferred env let de = view envDeferred env
as <- liftIO $ replicateM 32 $ async $ runPipeline de as <- liftIO $ replicateM 16 $ async $ runPipeline de
sw <- liftIO $ async $ forever $ withPeerM env $ do sw <- liftIO $ async $ forever $ withPeerM env $ do
pause defSweepTimeout pause defSweepTimeout