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

---
 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 ec88a588..951909d8 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -380,6 +380,9 @@ refChanUpdateProto self pc adapter msg = do
 
        lift $ gossip msg
 
+       -- тут может так случиться, что propose еще нет
+       -- UDP вообще не гарантирует порядок доставки, а отправляем мы транзы
+       -- почти одновременно. ну или не успело записаться. и что делать?
        tranBs <- MaybeT $ liftIO $ getBlock sto (fromHashRef hashRef)
 
        tran <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) tranBs & either (const Nothing) Just