From 6f5b08829e185a089b1eef2d0aecda1bc514084e Mon Sep 17 00:00:00 2001 From: Frezzle Date: Mon, 19 Sep 2016 11:20:14 +0100 Subject: [PATCH] CA-220170: Fix ha-network-peers CLI field showing hosts as "not in database" Signed-off-by: Frezzle --- ocaml/client_records/records.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/client_records/records.ml b/ocaml/client_records/records.ml index c9e2b90f7f9..6bf7d433dc3 100644 --- a/ocaml/client_records/records.ml +++ b/ocaml/client_records/records.ml @@ -1083,7 +1083,7 @@ let host_record rpc session_id host = make_field ~name:"host-metrics-live" ~get:(fun () -> default nid (may (fun m -> string_of_bool m.API.host_metrics_live) (xm ()) )) (); make_field ~name:"patches" ~get:(fun () -> String.concat ", " (get_patches ())) ~get_set:get_patches (); make_field ~name:"ha-statefiles" ~get:(fun () -> String.concat "; " (List.map (fun x -> get_uuid_from_ref (Ref.of_string x)) (x ()).API.host_ha_statefiles)) (); - make_field ~name:"ha-network-peers" ~get:(fun () -> String.concat "; " (List.map (fun x -> get_uuid_from_ref (Ref.of_string x)) (x ()).API.host_ha_network_peers)) (); + make_field ~name:"ha-network-peers" ~get:(fun () -> String.concat "; " (x ()).API.host_ha_network_peers) (); make_field ~name:"external-auth-type" ~get:(fun () -> (x ()).API.host_external_auth_type) (); make_field ~name:"external-auth-service-name" ~get:(fun () -> (x ()).API.host_external_auth_service_name) (); make_field ~name:"external-auth-configuration" ~get:(fun () -> Record_util.s2sm_to_string "; " (x ()).API.host_external_auth_configuration)