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

wip, log merging, debug-2

This commit is contained in:
Dmitry Zuikov 2023-07-19 11:49:14 +03:00
parent c55e5876a8
commit 0c8a571a76
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hbs2-peer/app/RefChan.hs
View File

@ -455,9 +455,18 @@ logMergeProcess _ q = do
-- больше quorum подтверждений для актуальной головы -- больше quorum подтверждений для актуальной головы
r <- forM trans $ \href -> runMaybeT do r <- forM trans $ \href -> runMaybeT do
debug $ "TO MERGE" <+> pretty href
blk <- MaybeT $ liftIO $ getBlock sto (fromHashRef href) blk <- MaybeT $ liftIO $ getBlock sto (fromHashRef href)
debug $ "BLOCK OK" <+> pretty href
tran <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) blk tran <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) blk
& either (const Nothing) Just & either (const Nothing) Just
debug $ "TRAN OK" <+> pretty href
case tran of case tran of
Propose _ box -> do Propose _ box -> do
(pk, ProposeTran headRef box) <- MaybeT $ pure $ unboxSignedBox0 box (pk, ProposeTran headRef box) <- MaybeT $ pure $ unboxSignedBox0 box