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

Extract lref - cli subcommands

This commit is contained in:
Sergey Ivanov 2023-03-20 21:42:58 +04:00
parent b275f43063
commit aa911e2b0f
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
hbs2-peer/app/PeerMain.hs
View File

@ -241,12 +241,7 @@ runCLI = join . customExecParser (prefs showHelpOnError) $
<> command "fetch" (info pFetch (progDesc "fetch block"))
<> command "peers" (info pPeers (progDesc "show known peers"))
<> command "log" (info pLog (progDesc "set logging level"))
<> command "lref-ann" (info pLRefAnn (progDesc "announce linear ref"))
<> command "lref-new" (info pLRefNew (progDesc "generates a new linear ref"))
<> command "lref-list" (info pLRefList (progDesc "list node linear refs"))
<> command "lref-get" (info pLRefGet (progDesc "get a linear ref"))
<> command "lref-update" (info pLRefUpdate (progDesc "updates a linear ref"))
<> command "lref-update-raw" (info pLRefUpdateRaw (progDesc "updates a linear ref with already signed data"))
<> command "lref" (info pLRef (progDesc "lref commands"))
)
confOpt = strOption ( long "config" <> short 'c' <> help "config" )
@ -317,6 +312,14 @@ runCLI = join . customExecParser (prefs showHelpOnError) $
pref <- optional $ strArgument ( metavar "DIR" )
pure $ peerConfigInit pref
pLRef = hsubparser $
command "ann" (info pLRefAnn (progDesc "announce linear ref"))
<> command "new" (info pLRefNew (progDesc "generates a new linear ref"))
<> command "list" (info pLRefList (progDesc "list node linear refs"))
<> command "get" (info pLRefGet (progDesc "get a linear ref"))
<> command "update" (info pLRefUpdate (progDesc "updates a linear ref"))
<> command "update-raw" (info pLRefUpdateRaw (progDesc "updates a linear ref with already signed data"))
pLRefAnn = do
rpc <- pRpcCommon
h <- strArgument ( metavar "HASH" )