From 4c0f96342d5dfc989059100c63e3d20a9b317ff9 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Fri, 27 Jan 2023 13:20:44 +0300 Subject: [PATCH] wip --- hbs2-core/lib/HBS2/Defaults.hs | 2 +- hbs2-tests/test/Peer2Main.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/hbs2-core/lib/HBS2/Defaults.hs b/hbs2-core/lib/HBS2/Defaults.hs index d6edf787..be3e162b 100644 --- a/hbs2-core/lib/HBS2/Defaults.hs +++ b/hbs2-core/lib/HBS2/Defaults.hs @@ -5,7 +5,7 @@ import Data.String -- defChunkSize :: Integer defChunkSize :: Integral a => a -defChunkSize = 1024 +defChunkSize = 500 defBlockSize :: Integer defBlockSize = 256 * 1024 diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs index db4621e3..2b94fd2c 100644 --- a/hbs2-tests/test/Peer2Main.hs +++ b/hbs2-tests/test/Peer2Main.hs @@ -159,8 +159,8 @@ runTestPeer p zu = do stor <- simpleStorageInit opts cww <- newChunkWriterIO stor (Just chDir) - sw <- liftIO $ replicateM 32 $ async $ simpleStorageWorker stor - cw <- liftIO $ replicateM 8 $ async $ runChunkWriter cww + sw <- liftIO $ replicateM 8 $ async $ simpleStorageWorker stor + cw <- liftIO $ replicateM 16 $ async $ runChunkWriter cww zu stor cww