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

wip

This commit is contained in:
Dmitry Zuikov 2023-01-11 16:10:06 +03:00
parent ccce9504a3
commit 742b3e57dd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2/Main.hs
View File

@ -64,7 +64,7 @@ runStore opts ss = do
& S.map HashRef
& S.toList_
let pt = toPTree (MaxSize 2048) (MaxNum 2048) hashes -- FIXME: settings
let pt = toPTree (MaxSize 8192) (MaxNum 8192) hashes -- FIXME: settings
root <- makeMerkle 0 pt $ \(h,_,bs) -> void $ putBlock ss bs