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

wip, debug

This commit is contained in:
Dmitry Zuikov 2023-07-18 11:54:38 +03:00
parent 73d0fc6162
commit a1f16efec3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -380,6 +380,9 @@ refChanUpdateProto self pc adapter msg = do
lift $ gossip msg lift $ gossip msg
-- тут может так случиться, что propose еще нет
-- UDP вообще не гарантирует порядок доставки, а отправляем мы транзы
-- почти одновременно. ну или не успело записаться. и что делать?
tranBs <- MaybeT $ liftIO $ getBlock sto (fromHashRef hashRef) tranBs <- MaybeT $ liftIO $ getBlock sto (fromHashRef hashRef)
tran <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) tranBs & either (const Nothing) Just tran <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) tranBs & either (const Nothing) Just