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:15:32 +03:00
parent c50b91ff47
commit 477a1e22b5
4 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
flake.nix
View File

@ -33,14 +33,14 @@ outputs = { self, nixpkgs, haskell-flake-utils, ... }@inputs:
packagePostOverrides = { pkgs }: with pkgs; with haskell.lib; [ packagePostOverrides = { pkgs }: with pkgs; with haskell.lib; [
enableExecutableProfiling disableExecutableProfiling
disableLibraryProfiling disableLibraryProfiling
dontBenchmark dontBenchmark
dontCoverage dontCoverage
dontDistribute dontDistribute
dontHaddock dontHaddock
dontHyperlinkSource dontHyperlinkSource
# doStrip doStrip
enableDeadCodeElimination enableDeadCodeElimination
justStaticExecutables justStaticExecutables

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 32 $ async $ runPipeline de as <- liftIO $ replicateM 2 $ asyncBound $ runPipeline de
sw <- liftIO $ async $ forever $ withPeerM env $ do sw <- liftIO $ async $ forever $ withPeerM env $ do
pause defSweepTimeout pause defSweepTimeout

0
hbs2-tests/LICENSE Normal file
View File

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

@ -159,7 +159,7 @@ runTestPeer p zu = do
cww <- newChunkWriterIO stor (Just chDir) cww <- newChunkWriterIO stor (Just chDir)
sw <- liftIO $ replicateM 4 $ async $ simpleStorageWorker stor sw <- liftIO $ replicateM 4 $ async $ simpleStorageWorker stor
cw <- liftIO $ replicateM 2 $ async $ runChunkWriter cww cw <- liftIO $ replicateM 4 $ async $ runChunkWriter cww
zu stor cww zu stor cww
@ -592,10 +592,11 @@ 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