wtf

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"

hbs2-tests/test/Peer2Main.hs

@@ -293,6 +293,8 @@ blockDownloadLoop cw = do
   stats0 <- newStatsIO
 
   let blks = [ "GTtQp6QjK7G9Sh5Aq4koGSpMX398WRWn3DV28NUAYARg"
+             , "5LoU2EVq7JSpiT9FmLEakVHxpsE989XnX6jE4gaUcLFA"
+             , "CotHSTLrg8T5NrYxyhG1AeJrdz1s4A5PdtA95Fh96JX8"
              ]
 
   blq  <- liftIO $ Q.newTBQueueIO defBlockDownloadQ