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

LICENSE

This commit is contained in:
Dmitry Zuikov 2023-01-26 18:24:12 +03:00
parent 477a1e22b5
commit 9dfa09c462
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
flake.nix
View File

@ -33,8 +33,8 @@ outputs = { self, nixpkgs, haskell-flake-utils, ... }@inputs:
packagePostOverrides = { pkgs }: with pkgs; with haskell.lib; [ packagePostOverrides = { pkgs }: with pkgs; with haskell.lib; [
disableExecutableProfiling enableExecutableProfiling
disableLibraryProfiling enableLibraryProfiling
dontBenchmark dontBenchmark
dontCoverage dontCoverage
dontDistribute dontDistribute

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

@ -301,7 +301,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 2 $ asyncBound $ 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

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

@ -592,11 +592,10 @@ main = do
bytes <- replicateM size $ uniformM g :: IO [Char] bytes <- replicateM size $ uniformM g :: IO [Char]
-- let blk = B8.pack bytes let blk = B8.pack bytes
-- root <- putAsMerkle s blk root <- putAsMerkle s blk
let root = "Efq9DZs2vyY3X4XB7sZUi1AxDuujamLjnJAGzc6odh9z"
rootSz <- hasBlock s (fromMerkleHash root) rootSz <- hasBlock s (fromMerkleHash root)
debug $ "I'm" <+> pretty p <+> pretty root debug $ "I'm" <+> pretty p <+> pretty root