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

minor fix

This commit is contained in:
Dmitry Zuikov 2023-11-24 06:18:56 +03:00
parent 79efb093bf
commit cd1b6ddf77
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-core/lib/HBS2/Net/Proto/RefChan.hs
View File

@ -976,7 +976,10 @@ instance ForRefChans e => FromStringMaybe (RefChanHeadBlock e) where
| (ListVal [SymbolVal "reader", LitStrVal s] ) <- parsed | (ListVal [SymbolVal "reader", LitStrVal s] ) <- parsed
] ]
instance (ForRefChans e, Pretty (AsBase58 (PubKey 'Sign (Encryption e)))) => Pretty (RefChanHeadBlock e) where instance (ForRefChans e
, Pretty (AsBase58 (PubKey 'Sign (Encryption e)))
, Pretty (AsBase58 (PubKey 'Encrypt (Encryption e)))
) => Pretty (RefChanHeadBlock e) where
pretty blk = parens ("version" <+> pretty (view refChanHeadVersion blk)) <> line pretty blk = parens ("version" <+> pretty (view refChanHeadVersion blk)) <> line
<> <>
parens ("quorum" <+> pretty (view refChanHeadQuorum blk)) <> line parens ("quorum" <+> pretty (view refChanHeadQuorum blk)) <> line
@ -986,11 +989,13 @@ instance (ForRefChans e, Pretty (AsBase58 (PubKey 'Sign (Encryption e)))) => Pre
vcat (fmap peer (HashMap.toList $ view refChanHeadPeers blk)) <> line vcat (fmap peer (HashMap.toList $ view refChanHeadPeers blk)) <> line
<> <>
vcat (fmap author (HashSet.toList $ view refChanHeadAuthors blk)) <> line vcat (fmap author (HashSet.toList $ view refChanHeadAuthors blk)) <> line
<>
vcat (fmap reader (HashSet.toList $ view refChanHeadReaders blk)) <> line
where where
peer (p,w) = parens ("peer" <+> dquotes (pretty (AsBase58 p)) <+> pretty w) peer (p,w) = parens ("peer" <+> dquotes (pretty (AsBase58 p)) <+> pretty w)
author p = parens ("author" <+> dquotes (pretty (AsBase58 p))) author p = parens ("author" <+> dquotes (pretty (AsBase58 p)))
reader p = parens ("reader" <+> dquotes (pretty (AsBase58 p)))
-- FIXME: reconnect-validator-client-after-restart -- FIXME: reconnect-validator-client-after-restart