wip

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 от всех пиров
        --   закрываем раунд досрочно.