From 79ab208f1568e920abd46834fe7d97524e538244 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sat, 6 Apr 2024 15:19:27 +0300 Subject: [PATCH] wip, dump -> cat --- hbs2-peer/app/CLI/RefChan.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hbs2-peer/app/CLI/RefChan.hs b/hbs2-peer/app/CLI/RefChan.hs index 5b059a6b..eac1cf77 100644 --- a/hbs2-peer/app/CLI/RefChan.hs +++ b/hbs2-peer/app/CLI/RefChan.hs @@ -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