From e53c9fa995f70b29a46418db8b905fb9b1d6e431 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 18 Jul 2023 09:29:14 +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 3823abe5..e634e87c 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -354,6 +354,8 @@ refChanUpdateProto self pc adapter msg = do
         --   проверить, что мы вообще авторизованы
         --   рассылать ACCEPT
 
+        debug $ "MY-PK" <+> pretty (AsBase58 pk) <+> pretty (fmap AsBase58 $ HashMap.keys pips)
+
         guard ( pk `HashMap.member` pips )
 
         -- если нет - то и всё, просто перешлём