From b0ee8c584c804849f190f109361851e3a27af597 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 19 Jul 2023 11:54:01 +0300 Subject: [PATCH] wip, log merging, debug-3 --- hbs2-peer/app/RefChan.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs index 55ac2cff..68c55ba5 100644 --- a/hbs2-peer/app/RefChan.hs +++ b/hbs2-peer/app/RefChan.hs @@ -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)