wip

flake.nix

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

hbs2-tests/hbs2-tests.cabal

@@ -60,7 +60,7 @@ common shared-properties
         -- -fno-warn-unused-binds
         -threaded
         -rtsopts
-        "-with-rtsopts=-N8 -A64m -AL256m -I0"
+        "-with-rtsopts=-N4 -A256m -AL256m -I0"
 
 
   default-language:    Haskell2010

hbs2-tests/test/Peer2Main.hs

@@ -438,7 +438,10 @@ blockDownloadLoop cw = do
         -- debug $ pretty (show bt)
 
         case bt of
-          Nothing -> pure ()
+          Nothing -> do
+            liftIO $ atomically $ Q.writeTBQueue q (DownloadTask h Nothing)
+            -- debug $ "NO FUCKING BLOCK FOUND!"
+            pure ()
 
           Just (AnnRef{}) -> do
             pure ()

hbs2-tests/test/TestChunkWriter.hs

@@ -52,7 +52,7 @@ main = do
 
     storage <- simpleStorageInit opts :: IO (SimpleStorage HbSync)
 
-    w1 <- replicateM 4 $ async (simpleStorageWorker storage)
+    w1 <- replicateM 1 $ async (simpleStorageWorker storage)
 
     cw <- newChunkWriterIO @HbSync storage (Just (dir </> ".qqq"))