LICENSE

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
 

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

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