From e7fef02486cb90b8ec2bc2ff95f86687f628b579 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 19 Jul 2023 12:00:21 +0300
Subject: [PATCH] wip, log merging, debug-6

---
 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 c08569f8..f950b175 100644
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@@ -494,6 +494,8 @@ logMergeProcess _ q = do
       let permitted = HashMap.fromListWith merge1 (mconcat (catMaybes r))
                           & HashMap.toList
 
+      debug $ "PERMITTED" <+> pretty permitted
+
       new <- S.toList_ do
                 forM_ permitted $ \(prop, (qx, accs)) -> do
                   when (length accs >= qx) do