diff --git a/flake.nix b/flake.nix index 76eff55c..619deb98 100644 --- a/flake.nix +++ b/flake.nix @@ -33,14 +33,14 @@ outputs = { self, nixpkgs, haskell-flake-utils, ... }@inputs: packagePostOverrides = { pkgs }: with pkgs; with haskell.lib; [ - enableExecutableProfiling + disableExecutableProfiling disableLibraryProfiling dontBenchmark dontCoverage dontDistribute dontHaddock dontHyperlinkSource - # doStrip + doStrip enableDeadCodeElimination justStaticExecutables diff --git a/hbs2-core/lib/HBS2/Actors/Peer.hs b/hbs2-core/lib/HBS2/Actors/Peer.hs index 1c940d18..00d9dd96 100644 --- a/hbs2-core/lib/HBS2/Actors/Peer.hs +++ b/hbs2-core/lib/HBS2/Actors/Peer.hs @@ -301,7 +301,7 @@ runPeerM s bus p f = do <*> liftIO (newTVarIO mempty) 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 pause defSweepTimeout diff --git a/hbs2-tests/LICENSE b/hbs2-tests/LICENSE new file mode 100644 index 00000000..e69de29b diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs index 42981c0b..a47a400e 100644 --- a/hbs2-tests/test/Peer2Main.hs +++ b/hbs2-tests/test/Peer2Main.hs @@ -159,7 +159,7 @@ runTestPeer p zu = do cww <- newChunkWriterIO stor (Just chDir) sw <- liftIO $ replicateM 4 $ async $ simpleStorageWorker stor - cw <- liftIO $ replicateM 2 $ async $ runChunkWriter cww + cw <- liftIO $ replicateM 4 $ async $ runChunkWriter cww zu stor cww @@ -592,10 +592,11 @@ main = do 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) debug $ "I'm" <+> pretty p <+> pretty root