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

refchan head extensions

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

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

@ -263,7 +263,7 @@ instance ForRefChans e => FromStringMaybe (RefChanHeadBlock e) where
<*> pure (HashSet.fromList authors) <*> pure (HashSet.fromList authors)
<*> pure (HashSet.fromList readers) <*> pure (HashSet.fromList readers)
<*> pure (HashSet.fromList notifiers) <*> pure (HashSet.fromList notifiers)
<*> pure (LBS.toStrict $ serialise ext) <*> pure (LBS.toStrict ext)
where where
parsed = parseTop str & fromRight mempty parsed = parseTop str & fromRight mempty
@ -315,6 +315,7 @@ instance (ForRefChans e
lstOf notifier (HashSet.toList $ view refChanHeadNotifiers blk) lstOf notifier (HashSet.toList $ view refChanHeadNotifiers blk)
<> <>
lstOf disclosed_ disclosed lstOf disclosed_ disclosed
<> semi <+> parens ("head-ext-number:" <+> pretty (length exs))
where where