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

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

diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
index 2f34417b..3823abe5 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -404,6 +404,9 @@ refChanUpdateProto self pc adapter msg = do
 
        (peerKey, ptran) <- MaybeT $ pure $ unboxSignedBox0 @(ProposeTran e) @e proposed
 
+
+       debug $ "ACCEPT FROM:" <+> pretty (AsBase58 peerKey)
+
        -- compiler bug?
        let (ProposeTran _ pbox) = ptran