From c55e5876a8749ffff1696ae7e5ee2c639643b471 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 19 Jul 2023 11:47:14 +0300
Subject: [PATCH] wip, log merging, debug

---
 hbs2-peer/app/RefChan.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs
index fd7d1552..ed9870f6 100644
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@@ -485,6 +485,8 @@ logMergeProcess _ q = do
                     S.yield prop
                     S.each accs
 
+      debug $ "NEW TRANS TO MERGE" <+> pretty new
+
       let merged = HashSet.union current (HashSet.fromList new) & HashSet.toList
 
       let pt = toPTree (MaxSize 256) (MaxNum 256) merged