diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 951909d8..0585fd7f 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -383,6 +383,12 @@ refChanUpdateProto self pc adapter msg = do -- тут может так случиться, что propose еще нет -- UDP вообще не гарантирует порядок доставки, а отправляем мы транзы -- почти одновременно. ну или не успело записаться. и что делать? + + here <- liftIO (hasBlock sto (fromHashRef hashRef)) <&> isJust + + unless here do + debug $ "NO PROPOSE TRANSACTION SAVED YET!" <+> pretty hashRef + tranBs <- MaybeT $ liftIO $ getBlock sto (fromHashRef hashRef) tran <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) tranBs & either (const Nothing) Just