mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
8b1e3fbbfd
commit
defa1540e5
|
@ -395,7 +395,7 @@ main = do
|
||||||
|
|
||||||
fake <- newFakeP2P True <&> Fabriq
|
fake <- newFakeP2P True <&> Fabriq
|
||||||
|
|
||||||
let (p0:ps) = [0..4] :: [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 -> async $ runTestPeer p $ \s cw -> do
|
||||||
|
|
Loading…
Reference in New Issue