voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wtf

This commit is contained in:
Dmitry Zuikov 2023-01-25 08:48:36 +03:00
parent aa739d64e7
commit 6133c1cb2f
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Defaults.hs
View File

@ -8,7 +8,7 @@ defChunkSize :: Integral a => a
defChunkSize = 500 defChunkSize = 500
defBlockSize :: Integer defBlockSize :: Integer
defBlockSize = 256 * 1024 defBlockSize = 1024 * 1024
defStorePath :: IsString a => a defStorePath :: IsString a => a
defStorePath = "hbs2" defStorePath = "hbs2"

2
hbs2-tests/test/Peer2Main.hs
View File

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