mirror of https://github.com/voidlizard/hbs2
debug
This commit is contained in:
parent
7e67021fc6
commit
596d8f1e16
|
@ -830,7 +830,7 @@ runPeer opts = respawnOnError opts $ do
|
||||||
simpleStorageSetProbe s stoProbe
|
simpleStorageSetProbe s stoProbe
|
||||||
addProbe stoProbe
|
addProbe stoProbe
|
||||||
|
|
||||||
stn <- getNumCapabilities <&> max 2 . div 4
|
stn <- getNumCapabilities -- <&> max 2 . div 2
|
||||||
|
|
||||||
w <- replicateM stn $ async $ liftIO $ simpleStorageWorker s
|
w <- replicateM stn $ async $ liftIO $ simpleStorageWorker s
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue