From d7a4d5cdf26104a7755f570cd3c5bb8521839220 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 18 Jul 2023 12:06:00 +0300 Subject: [PATCH] wip, debug --- hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 6 ++++++ 1 file changed, 6 insertions(+) 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