diff --git a/flake.nix b/flake.nix index bb194719..619deb98 100644 --- a/flake.nix +++ b/flake.nix @@ -33,8 +33,8 @@ outputs = { self, nixpkgs, haskell-flake-utils, ... }@inputs: packagePostOverrides = { pkgs }: with pkgs; with haskell.lib; [ - enableExecutableProfiling - enableLibraryProfiling + disableExecutableProfiling + disableLibraryProfiling dontBenchmark dontCoverage dontDistribute diff --git a/hbs2-tests/hbs2-tests.cabal b/hbs2-tests/hbs2-tests.cabal index 61a931b1..9c70e346 100644 --- a/hbs2-tests/hbs2-tests.cabal +++ b/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 diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs index 81f2d30f..e5489651 100644 --- a/hbs2-tests/test/Peer2Main.hs +++ b/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 () diff --git a/hbs2-tests/test/TestChunkWriter.hs b/hbs2-tests/test/TestChunkWriter.hs index c212eb88..d7db7e0b 100644 --- a/hbs2-tests/test/TestChunkWriter.hs +++ b/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"))