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

wip, log merging, debug-3

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

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

@ -470,6 +470,7 @@ logMergeProcess _ q = do
case tran of
Propose _ box -> do
(pk, ProposeTran headRef box) <- MaybeT $ pure $ unboxSignedBox0 box
debug $ "PROPOSE" <+> pretty href <+> pretty headRef
(ak, _) <- MaybeT $ pure $ unboxSignedBox0 box
hd <- MaybeT $ lift $ getHead menv headRef
let quo = view refChanHeadQuorum hd & fromIntegral
@ -478,6 +479,7 @@ logMergeProcess _ q = do
Accept _ box -> do
(pk, AcceptTran headRef hashRef) <- MaybeT $ pure $ unboxSignedBox0 box
debug $ "ACCEPT" <+> pretty href <+> pretty headRef
hd <- MaybeT $ lift $ getHead menv headRef
let quo = view refChanHeadQuorum hd & fromIntegral
guard $ HashMap.member pk (view refChanHeadPeers hd)