Merge pull request #130 from lindig/1.33-lcm

CA-399183 fix rrd-cli execution
xapi-project · Oct 1, 2024 · 2856819 · 2856819
2 parents 17e55a7 + 78ab3ec
commit 2856819
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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 () | _ -> ()