wip, debug

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