From ee934740abe8ead4210f5444be037a4cba7cb338 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 18 Jul 2023 09:20:35 +0300
Subject: [PATCH] wip

---
 hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
index b5dc0c16..2e396bf9 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -422,6 +422,8 @@ refChanUpdateProto self pc adapter msg = do
 
        accepts <- atomically $ readTVar (view refChanRoundAccepts rcRound) <&> HashMap.size
 
+       debug $ "ACCEPTS" <+> pretty accepts
+
        -- FIXME: round!
        when (accepts > 2) do
          debug $ "ROUND!" <+> pretty accepts <+> pretty hashRef