From 3c46a14aa58ccd8a941f2104a9343b71a373c3d3 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Tue, 18 Jul 2023 12:11:27 +0300
Subject: [PATCH] wip, debug

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

diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
index 0585fd7f..2212f9aa 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -301,6 +301,10 @@ refChanUpdateProto self pc adapter msg = do
 
        let h0 = hashObject @HbSync (serialise msg)
 
+       done <- liftIO (hasBlock sto h0) <&> isJust
+
+       guard (not done)
+
        debug $ "RefChanUpdate/Propose" <+> pretty h0
 
        deferred proto do