From b2799f156e25f35cfb8912714fc42e0b093a3fc4 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 15 Apr 2024 06:24:53 +0300 Subject: [PATCH] refchan head extensions --- hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs b/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs index beed6b1e..4b698981 100644 --- a/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs +++ b/hbs2-peer/lib/HBS2/Peer/Proto/RefChan/Types.hs @@ -263,7 +263,7 @@ instance ForRefChans e => FromStringMaybe (RefChanHeadBlock e) where <*> pure (HashSet.fromList authors) <*> pure (HashSet.fromList readers) <*> pure (HashSet.fromList notifiers) - <*> pure (LBS.toStrict $ serialise ext) + <*> pure (LBS.toStrict ext) where parsed = parseTop str & fromRight mempty @@ -315,6 +315,7 @@ instance (ForRefChans e lstOf notifier (HashSet.toList $ view refChanHeadNotifiers blk) <> lstOf disclosed_ disclosed + <> semi <+> parens ("head-ext-number:" <+> pretty (length exs)) where