From 78ab3ec50ecc41519d80177f7f3b450ad6833a03 Mon Sep 17 00:00:00 2001
From: Christian Lindig <christian.lindig@cloud.com>
Date: Tue, 1 Oct 2024 09:52:27 +0100
Subject: [PATCH] CA-399183 fix rrd-cli execution

Custom commands were not executed at all because cli() returns a
function that needs to be called but was not.

Signed-off-by: Christian Lindig <christian.lindig@cloud.com>
---
 cli/rrd_cli.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cli/rrd_cli.ml b/cli/rrd_cli.ml
index db5b018c..26ae39b2 100644
--- a/cli/rrd_cli.ml
+++ b/cli/rrd_cli.ml
@@ -17,11 +17,12 @@ let default_cmd =
       ]
   in
   ( Cmdliner.Term.(ret (const (fun _ -> `Help (`Pager, None)) $ const ()))
-  , Cmdliner.Term.info "rrd-cli" ~version:(version_str Cmds.description) ~doc )
+  , Cmdliner.Term.info "rrd-cli" ~version:(version_str Cmds.description) ~doc
+  )
 
 let cli () =
   let rpc = Rrd_client.rpc in
   Cmdliner.Term.eval_choice default_cmd
     (List.map (fun t -> t rpc) (Cmds.implementation ()))
 
-let _ = cli ()
+let () = match cli () with `Ok f -> f () | _ -> ()