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

wip

This commit is contained in:
Dmitry Zuikov 2023-01-27 13:20:44 +03:00
parent ab3d22747d
commit 4c0f96342d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Defaults.hs
View File

@ -5,7 +5,7 @@ import Data.String
-- defChunkSize :: Integer -- defChunkSize :: Integer
defChunkSize :: Integral a => a defChunkSize :: Integral a => a
defChunkSize = 1024 defChunkSize = 500
defBlockSize :: Integer defBlockSize :: Integer
defBlockSize = 256 * 1024 defBlockSize = 256 * 1024

4
hbs2-tests/test/Peer2Main.hs
View File

@ -159,8 +159,8 @@ runTestPeer p zu = do
stor <- simpleStorageInit opts stor <- simpleStorageInit opts
cww <- newChunkWriterIO stor (Just chDir) cww <- newChunkWriterIO stor (Just chDir)
sw <- liftIO $ replicateM 32 $ async $ simpleStorageWorker stor sw <- liftIO $ replicateM 8 $ async $ simpleStorageWorker stor
cw <- liftIO $ replicateM 8 $ async $ runChunkWriter cww cw <- liftIO $ replicateM 16 $ async $ runChunkWriter cww
zu stor cww zu stor cww