LICENSE

flake.nix

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

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

hbs2-tests/test/Peer2Main.hs

@@ -592,11 +592,10 @@ 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