wip

hbs2-cli/lib/HBS2/CLI/Run/KeyMan.hs

@@ -38,6 +38,7 @@ keymanEntries = do
   entry $ bindMatch "hbs2:keyman:config" $ \_ -> do
     mkForm  "dict" <$> keymanGetConfig
 
+  args [ arg "string" "keyring-data"] $
     entry $ bindMatch "hbs2:keyman:keys:add" $ \case
       [ LitStrVal ke ] -> do
         conf <- keymanGetConfig @C

hbs2-git3/bf6/hbs2-git

@@ -0,0 +1,7 @@
+#! /usr/bin/env -S bf6 file
+
+(run:proc:attached hbs2-git3 (cdr *args))
+
+
+
+

hbs2-git3/lib/HBS2/Git3/Run.hs

@@ -133,7 +133,8 @@ compression      ;  prints compression level
           [ StringLike s ] -> display $ mkStr @C (show $ pretty $ gitNormaliseRef (fromString s))
           _ -> throwIO (BadFormException @C nil)
 
-        entry $ bindMatch "test:hbs2:peer:poke" $ nil_ $ \syn -> do
+        brief "checks if hbs2-peer available"
+          $ entry $ bindMatch "hbs2:peer:poke" $ nil_ $ \syn -> do
             peer <- getClientAPI @PeerAPI @UNIX
             r    <- callRpcWaitRetry @RpcPoke (TimeoutSec 0.5) 2 peer () >>= orThrowUser "hbs2-peer not found"
             notice $ pretty r

nix/bf6-hbs2-git.nix

@@ -28,4 +28,7 @@ stdenv.mkDerivation {
     mkdir -p $out/bin
     cp ${p}/bin/${name} $out/bin
     '';
+
+
+
 }