From ff75e14cb3c1e5f3579e8b3577d7c72ba8ed271f Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 15 Apr 2024 06:32:58 +0300 Subject: [PATCH] head extensions number/length pretty printing --- hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs b/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs index 4b698981..8b2c7582 100644 --- a/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs +++ b/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs @@ -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