From 40f05a0051ca2e74b83183ce0db2b4b4f8efa5c0 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 19 Jul 2023 21:00:08 +0300 Subject: [PATCH] wip, log merging, debug-21 --- hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 1d1e4545..73cc6a20 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -543,7 +543,17 @@ refChanUpdateProto self pc adapter msg = do forM_ trans $ \t -> do lift $ refChanWriteTran adapter t - debug $ "WRITING TRANS" <+> pretty t + + -- FIXME: remove-debug-shit + wtf <- MaybeT $ liftIO $ getBlock sto (fromHashRef t) + + trr <- MaybeT $ pure $ deserialiseOrFail @(RefChanUpdate e) wtf & either (const Nothing) Just + + let tp = case trr of + Propose{} -> "PROPOSE" + Accept{} -> "ACCEPT" + + debug $ "WRITING TRANS" <+> pretty tp <+> pretty t let pips = view refChanHeadPeers headBlock & HashMap.keys & HashSet.fromList votes <- readTVarIO (view refChanRoundAccepts rcRound) <&> HashSet.fromList . HashMap.keys