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

head extensions number/length pretty printing

This commit is contained in:
Dmitry Zuikov 2024-04-15 06:32:58 +03:00
parent b2799f156e
commit ff75e14cb3
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs
View File

@ -315,11 +315,16 @@ instance (ForRefChans e
lstOf notifier (HashSet.toList $ view refChanHeadNotifiers blk)
<>
lstOf disclosed_ disclosed
<> semi <+> parens ("head-ext-number:" <+> pretty (length exs))
<> semi <+> parens ("head-extensions:"
<+> parens ("count:" <+> pretty (length exs))
<+> parens ("size" <+> pretty (LBS.length extLbs))
)
where
RefChanHeadExt exs = deserialiseOrFail @(RefChanHeadExt L4Proto) (LBS.fromStrict $ view refChanHeadExt blk)
extLbs = LBS.fromStrict $ view refChanHeadExt blk
RefChanHeadExt exs = deserialiseOrFail @(RefChanHeadExt L4Proto) extLbs
& fromRight mempty
disclosed = [ deserialiseOrFail @(RefChanDisclosedCredentials L4Proto) s