Fix gpumon CLI and v6 CLI

Signed-off-by: Jon Ludlam <[email protected]>

Author: jonludlam

gpumon/gpumon_cli.ml

@@ -19,4 +19,8 @@ let cli () =
   let rpc = Gpumon_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 ()
+  | _ -> ()
+

v6/v6_cli.ml

@@ -18,4 +18,8 @@ let cli () =
   let rpc = V6_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 ()
+  | _ -> ()
+