diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 022a8f3b..e26b51e8 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -449,6 +449,7 @@ refChanUpdateProto self pc adapter msg = do -- Запрашиваем refchan у всех. -- Пишем в итоговый лог только такие -- propose + accept у которых больше quorum accept +-- каждую транзу обрабатываем только один раз getActualRefChanHead :: forall e s m . ( MonadIO m , Sessions e (RefChanHeadBlock e) m