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

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

diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
index 8adf7e06..45bf9a68 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
@@ -377,8 +377,6 @@ refChanUpdateProto self pc adapter msg = do
 
        lift $ gossip msg
 
-       lift $ refChanUpdateProto True pc adapter msg
-
        tranBs <- MaybeT $ liftIO $ getBlock sto (fromHashRef hashRef)
 
        tran <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) tranBs & either (const Nothing) Just
@@ -439,6 +437,8 @@ refChanUpdateProto self pc adapter msg = do
           debug $ "CLOSING ROUND" <+> pretty hashRef
           pure ()
 
+       lift $ refChanUpdateProto True pc adapter msg
+
        -- TODO: expire-round-if-all-confirmations
        --   если получили accept от всех пиров
        --   закрываем раунд досрочно.