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

pretty printing

This commit is contained in:
Dmitry Zuikov 2024-04-15 07:16:38 +03:00
parent 7cdaf40022
commit 3b8f3d48f4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hbs2-peer/app/CLI/RefChan.hs
View File

@ -3,11 +3,11 @@ module CLI.RefChan where
import HBS2.Prelude.Plated
import HBS2.Hash
import HBS2.Base58
import HBS2.Net.Auth.Credentials
import HBS2.Net.Auth.Credentials.Sigil
import HBS2.Merkle
import HBS2.Peer.Proto.RefChan
import HBS2.Net.Proto.Types
import HBS2.Data.Types.Refs
import HBS2.Actors.Peer.Types
import HBS2.Data.Types.SignedBox
@ -122,8 +122,9 @@ pRefChanHeadDump= do
>>= orThrowUser "can't decode refchan head "
(_, hdblk) <- pure (unboxSignedBox @(RefChanHeadBlock L4Proto) @'HBS2Basic lbs) `orDie` "can't unbox signed box"
liftIO $ print $ pretty hdblk
(pk, hdblk) <- pure (unboxSignedBox @(RefChanHeadBlock L4Proto) @'HBS2Basic lbs) `orDie` "can't unbox signed box"
liftIO $ print $
(semi <+> "refchan" <+> pretty (AsBase58 pk)) <> line <> pretty hdblk
pRefChanHeadPost :: Parser (IO ())