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 "fetch" (info pRefChanFetch (progDesc "fetch and sync refchan value"))
<> command "get" (info pRefChanGet (progDesc "get refchan value")) <> command "get" (info pRefChanGet (progDesc "get refchan value"))
<> command "gk" (info pRefChanGK (progDesc "generate a group key")) <> 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) liftIO $ print $ pretty (AsGroupKeyFile gk)
pRefChanDump :: Parser (IO ()) pRefChanCat :: Parser (IO ())
pRefChanDump = do pRefChanCat = do
opts <- pRpcCommon opts <- pRpcCommon
puk <- argument pRefChanId (metavar "REFCHAH-REF") puk <- argument pRefChanId (metavar "REFCHAH-REF")
pure $ flip runContT pure do pure $ flip runContT pure do