diff --git a/hbs2/Main.hs b/hbs2/Main.hs index 62d4d7ad..b09512dd 100644 --- a/hbs2/Main.hs +++ b/hbs2/Main.hs @@ -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