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

works

This commit is contained in:
Dmitry Zuikov 2023-01-24 15:51:34 +03:00
parent aff86cf2b3
commit c2a2473eb1
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-core/lib/HBS2/Actors/ChunkWriter.hs
View File

@ -122,8 +122,8 @@ runChunkWriter2 w = do
amount <- for ks $ \k -> flush w k amount <- for ks $ \k -> flush w k
if (sum amount == 0) then do if (sum amount == 0) then do
pure () -- pure ()
-- pause ( 0.5 :: Timeout 'Seconds ) pause ( 0.1 :: Timeout 'Seconds )
else do else do
liftIO $ print ("flushed:" <+> pretty (sum amount)) liftIO $ print ("flushed:" <+> pretty (sum amount))

2
hbs2-core/lib/HBS2/Actors/Peer.hs
View File

@ -303,7 +303,7 @@ runPeerM s bus p f = do
<*> liftIO (newTVarIO mempty) <*> liftIO (newTVarIO mempty)
let de = view envDeferred env let de = view envDeferred env
as <- liftIO $ replicateM 8 $ async $ runPipeline de as <- liftIO $ replicateM 4 $ async $ runPipeline de
sw <- liftIO $ async $ forever $ withPeerM env $ do sw <- liftIO $ async $ forever $ withPeerM env $ do
pause defSweepTimeout pause defSweepTimeout

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

@ -155,7 +155,7 @@ runTestPeer p zu = do
cww <- newChunkWriterIO stor (Just chDir) cww <- newChunkWriterIO stor (Just chDir)
sw <- liftIO $ replicateM 4 $ async $ simpleStorageWorker stor sw <- liftIO $ replicateM 4 $ async $ simpleStorageWorker stor
cw <- liftIO $ replicateM 8 $ async $ runChunkWriter cww cw <- liftIO $ replicateM 8 $ async $ runChunkWriter cww
zu stor cww zu stor cww