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

wip, dump -> cat

This commit is contained in:
Dmitry Zuikov 2024-04-06 15:19:27 +03:00
parent 6ef80537a0
commit 79ab208f15
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,7 +53,7 @@ pRefChan = hsubparser ( command "head" (info pRefChanHead (progDesc "hea
<> command "fetch" (info pRefChanFetch (progDesc "fetch and sync refchan value"))
<> command "get" (info pRefChanGet (progDesc "get refchan value"))
<> command "gk" (info pRefChanGK (progDesc "generate a group key"))
<> command "dump" (info pRefChanDump (progDesc "dump refchan content"))
<> command "cat" (info pRefChanCat (progDesc "dump refchan content"))
)
@ -373,8 +373,8 @@ pRefChanGK = do
liftIO $ print $ pretty (AsGroupKeyFile gk)
pRefChanDump :: Parser (IO ())
pRefChanDump = do
pRefChanCat :: Parser (IO ())
pRefChanCat = do
opts <- pRpcCommon
puk <- argument pRefChanId (metavar "REFCHAH-REF")
pure $ flip runContT pure do