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