diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 472a1f86..c4b1f6e5 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -264,9 +264,6 @@ refChanUpdateProto self adapter msg = do -- итак, сначала достаём голову. как мы достаём голову? h <- MaybeT $ liftIO $ getRef sto (RefChanHeadKey @s chan) - -- FIXME: cache-this - hdblob <- MaybeT $ readBlobFromTree ( getBlock sto ) (HashRef h) - -- смотрим, что у нас такая же голова. -- если нет -- значит, кто-то рассинхронизировался. -- может быть, потом попробуем головы запросить @@ -274,6 +271,11 @@ refChanUpdateProto self adapter msg = do -- теперь достаём голову + -- FIXME: cache-this + hdblob <- MaybeT $ readBlobFromTree ( getBlock sto ) (HashRef h) + + debug "OMG! OMG! We've got a transaction!!" + pure ()