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

weird

This commit is contained in:
Dmitry Zuikov 2023-01-27 07:53:22 +03:00
parent 0ecd0bf437
commit ebaa2d7f74
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-tests/test/Peer2Main.hs
View File

@ -585,7 +585,7 @@ main = do
let (p0:ps) = [0..1] :: [Peer Fake] let (p0:ps) = [0..1] :: [Peer Fake]
-- others -- others
others <- forM ps $ \p -> async $ runTestPeer p $ \s cw -> do others <- forM ps $ \p -> asyncBound $ runTestPeer p $ \s cw -> do
let findBlk = hasBlock s let findBlk = hasBlock s
-- let size = 1024*1024*1 -- let size = 1024*1024*1