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

wip, log merging, debug-21

This commit is contained in:
Dmitry Zuikov 2023-07-19 21:00:08 +03:00
parent a73c2c4659
commit 40f05a0051
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hbs2-core/lib/HBS2/Net/Proto/RefChan.hs
View File

@ -543,7 +543,17 @@ refChanUpdateProto self pc adapter msg = do
forM_ trans $ \t -> do forM_ trans $ \t -> do
lift $ refChanWriteTran adapter t 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 let pips = view refChanHeadPeers headBlock & HashMap.keys & HashSet.fromList
votes <- readTVarIO (view refChanRoundAccepts rcRound) <&> HashSet.fromList . HashMap.keys votes <- readTVarIO (view refChanRoundAccepts rcRound) <&> HashSet.fromList . HashMap.keys