diff --git a/hbs2-core/lib/HBS2/Defaults.hs b/hbs2-core/lib/HBS2/Defaults.hs index 37ffbd7d..ce81a479 100644 --- a/hbs2-core/lib/HBS2/Defaults.hs +++ b/hbs2-core/lib/HBS2/Defaults.hs @@ -8,7 +8,7 @@ defChunkSize :: Integral a => a defChunkSize = 500 defBlockSize :: Integer -defBlockSize = 256 * 1024 +defBlockSize = 1024 * 1024 defStorePath :: IsString a => a defStorePath = "hbs2" diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs index 3b732e63..bc3cef53 100644 --- a/hbs2-tests/test/Peer2Main.hs +++ b/hbs2-tests/test/Peer2Main.hs @@ -293,6 +293,8 @@ blockDownloadLoop cw = do stats0 <- newStatsIO let blks = [ "GTtQp6QjK7G9Sh5Aq4koGSpMX398WRWn3DV28NUAYARg" + , "5LoU2EVq7JSpiT9FmLEakVHxpsE989XnX6jE4gaUcLFA" + , "CotHSTLrg8T5NrYxyhG1AeJrdz1s4A5PdtA95Fh96JX8" ] blq <- liftIO $ Q.newTBQueueIO defBlockDownloadQ