voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, trying to gen transaction

This commit is contained in:
Dmitry Zuikov 2023-07-15 13:10:29 +03:00
parent 075a28d9bf
commit 5689576368
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
View File

@ -264,9 +264,6 @@ refChanUpdateProto self adapter msg = do
-- итак, сначала достаём голову. как мы достаём голову? -- итак, сначала достаём голову. как мы достаём голову?
h <- MaybeT $ liftIO $ getRef sto (RefChanHeadKey @s chan) 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 () pure ()