Sort output of diagnostic-timing-stats (#6808)

xe diagnostic-timing-stats reports timings for functions in a key/value
format. This patch sorts the output by key.

Author: lindig

ocaml/xapi-cli-server/cli_operations.ml

@@ -197,6 +197,7 @@ let get_file_or_fail fd desc filename =
 
 let diagnostic_timing_stats printer rpc session_id params =
   let counts = get_bool_param params "counts" in
+  let sort = List.sort (fun (x, _) (y, _) -> String.compare x y) in
   let table_of_host host =
     [
       ("host-uuid", Client.Host.get_uuid ~rpc ~session_id ~self:host)
@@ -207,7 +208,8 @@ let diagnostic_timing_stats printer rpc session_id params =
     with e -> [("Error", Api_errors.to_string e)]
   in
   let all = List.map table_of_host (Client.Host.get_all ~rpc ~session_id) in
-  printer (Cli_printer.PTable all)
+  let sorted = List.map sort all in
+  printer (Cli_printer.PTable sorted)
 
 let get_hosts_by_name_or_id rpc session_id name =
   let hosts = Client.Host.get_all_records_where ~rpc ~session_id ~expr:"true" in