mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
791b1789bd
commit
57748eb4e9
|
@ -85,7 +85,7 @@ runFakePeer p = do
|
||||||
test1 :: IO ()
|
test1 :: IO ()
|
||||||
test1 = do
|
test1 = do
|
||||||
|
|
||||||
let peers = [0..0] :: [Peer Fake]
|
let peers = [0..2] :: [Peer Fake]
|
||||||
|
|
||||||
peerz <- mapM (async . runFakePeer) peers
|
peerz <- mapM (async . runFakePeer) peers
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue