diff --git a/hbs2-peer/app/CLI/LWWRef.hs b/hbs2-peer/app/CLI/LWWRef.hs new file mode 100644 index 00000000..9447dffe --- /dev/null +++ b/hbs2-peer/app/CLI/LWWRef.hs @@ -0,0 +1,24 @@ +module CLI.LWWRef where + +import HBS2.Prelude.Plated +import HBS2.Peer.Proto.LWWRef + +import CLI.Common +import RPC2() +import PeerLogger hiding (info) + +import Options.Applicative + +pLwwRef :: Parser (IO ()) +pLwwRef = hsubparser ( command "fetch" (info pLwwRefFetch (progDesc "fetch lwwref")) + <> command "get" (info pLwwRefGet (progDesc "get lwwref")) + ) +pLwwRefFetch :: Parser (IO ()) +pLwwRefFetch = pure do + pure () + +pLwwRefGet :: Parser (IO ()) +pLwwRefGet = pure do + pure () + + diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs index 89c6c3a7..dab29c27 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -53,6 +53,7 @@ import DispatchProxy import PeerMeta import CLI.Common import CLI.RefChan +import CLI.LWWRef import RefChan import RefChanNotifyLog import Fetch (fetchHash) @@ -236,6 +237,7 @@ runCLI = do <> command "fetch" (info pFetch (progDesc "fetch block")) <> command "reflog" (info pRefLog (progDesc "reflog commands")) <> command "refchan" (info pRefChan (progDesc "refchan commands")) + <> command "lwwref" (info pLwwRef (progDesc "lwwref commands")) <> command "peers" (info pPeers (progDesc "show known peers")) <> command "pexinfo" (info pPexInfo (progDesc "show pex")) <> command "download" (info pDownload (progDesc "download management")) @@ -453,7 +455,6 @@ runCLI = do <> command "del" (info pPollDel (progDesc "del poller" )) ) - pPollAdd = do rpc <- pRpcCommon r <- argument refP (metavar "REF") diff --git a/hbs2-peer/hbs2-peer.cabal b/hbs2-peer/hbs2-peer.cabal index 87654d33..6ab7c20d 100644 --- a/hbs2-peer/hbs2-peer.cabal +++ b/hbs2-peer/hbs2-peer.cabal @@ -269,6 +269,7 @@ executable hbs2-peer , DispatchProxy , CLI.Common , CLI.RefChan + , CLI.LWWRef , Paths_hbs2_peer