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

wip, log merging, debug-4

This commit is contained in:
Dmitry Zuikov 2023-07-19 11:56:22 +03:00
parent b0ee8c584c
commit 9e737afad3
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

@ -474,6 +474,7 @@ logMergeProcess _ q = do
(ak, _) <- MaybeT $ pure $ unboxSignedBox0 box (ak, _) <- MaybeT $ pure $ unboxSignedBox0 box
hd <- MaybeT $ lift $ getHead menv headRef hd <- MaybeT $ lift $ getHead menv headRef
let quo = view refChanHeadQuorum hd & fromIntegral let quo = view refChanHeadQuorum hd & fromIntegral
debug $ "PROPOSE QUO" <+> pretty href <+> pretty quo
guard $ checkACL hd pk ak guard $ checkACL hd pk ak
pure [(href, (quo,mempty))] pure [(href, (quo,mempty))]
@ -482,6 +483,7 @@ logMergeProcess _ q = do
debug $ "ACCEPT" <+> pretty href <+> pretty headRef debug $ "ACCEPT" <+> pretty href <+> pretty headRef
hd <- MaybeT $ lift $ getHead menv headRef hd <- MaybeT $ lift $ getHead menv headRef
let quo = view refChanHeadQuorum hd & fromIntegral let quo = view refChanHeadQuorum hd & fromIntegral
debug $ "ACCEPT QUO" <+> pretty href <+> pretty quo
guard $ HashMap.member pk (view refChanHeadPeers hd) guard $ HashMap.member pk (view refChanHeadPeers hd)
pure [(href, (quo,[hashRef]))] pure [(href, (quo,[hashRef]))]