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

wip

This commit is contained in:
Dmitry Zuikov 2023-07-18 11:38:38 +03:00
parent 66d7444198
commit 940248e99b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -377,8 +377,6 @@ refChanUpdateProto self pc adapter msg = do
lift $ gossip msg lift $ gossip msg
lift $ refChanUpdateProto True pc adapter msg
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
@ -439,6 +437,8 @@ refChanUpdateProto self pc adapter msg = do
debug $ "CLOSING ROUND" <+> pretty hashRef debug $ "CLOSING ROUND" <+> pretty hashRef
pure () pure ()
lift $ refChanUpdateProto True pc adapter msg
-- TODO: expire-round-if-all-confirmations -- TODO: expire-round-if-all-confirmations
-- если получили accept от всех пиров -- если получили accept от всех пиров
-- закрываем раунд досрочно. -- закрываем раунд досрочно.