From 742b3e57dd11a255e31ffd2db668fd2c9b28aafd Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 11 Jan 2023 16:10:06 +0300
Subject: [PATCH] wip

---
 hbs2/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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