From 1d6a842048875e40c36a46ec8bb7b25f8d0d108e Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 17 Mar 2024 20:30:36 +0300 Subject: [PATCH] reduced threads number --- hbs2-core/lib/HBS2/Actors/Peer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-core/lib/HBS2/Actors/Peer.hs b/hbs2-core/lib/HBS2/Actors/Peer.hs index 2dce5d61..3f1af405 100644 --- a/hbs2-core/lib/HBS2/Actors/Peer.hs +++ b/hbs2-core/lib/HBS2/Actors/Peer.hs @@ -405,7 +405,7 @@ runPeerM :: forall e m . ( MonadIO m runPeerM env f = do 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 pause defSweepTimeout