From cd1b6ddf779cbb18754ab4bab72ef2648ef94276 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Fri, 24 Nov 2023 06:18:56 +0300 Subject: [PATCH] minor fix --- hbs2-core/lib/HBS2/Net/Proto/RefChan.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs index 95edca36..e2765d2e 100644 --- a/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs +++ b/hbs2-core/lib/HBS2/Net/Proto/RefChan.hs @@ -976,7 +976,10 @@ instance ForRefChans e => FromStringMaybe (RefChanHeadBlock e) where | (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 <> 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 author (HashSet.toList $ view refChanHeadAuthors blk)) <> line + <> + vcat (fmap reader (HashSet.toList $ view refChanHeadReaders blk)) <> line where peer (p,w) = parens ("peer" <+> dquotes (pretty (AsBase58 p)) <+> pretty w) author p = parens ("author" <+> dquotes (pretty (AsBase58 p))) - + reader p = parens ("reader" <+> dquotes (pretty (AsBase58 p))) -- FIXME: reconnect-validator-client-after-restart