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