From 3ac45d417d3a5ab1163cda1b36d69d806960c33c Mon Sep 17 00:00:00 2001 From: Andrii Sultanov Date: Tue, 2 Jul 2024 09:23:06 +0100 Subject: [PATCH] Addressing further PR review comments Signed-off-by: Andrii Sultanov --- ocaml/xapi/db_gc.ml | 3 +-- ocaml/xcp-rrdd/bin/rrdd/rrdd_monitor.ml | 3 ++- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ocaml/xapi/db_gc.ml b/ocaml/xapi/db_gc.ml index e5031fcebf8..a0442314448 100644 --- a/ocaml/xapi/db_gc.ml +++ b/ocaml/xapi/db_gc.ml @@ -94,9 +94,8 @@ let check_host_liveness ~__context = with_lock host_table_m (fun () -> Option.value (Hashtbl.find_opt host_heartbeat_table host) - ~default:0.0 + ~default:Clock.Date.(epoch |> to_unix_time) ) - (* never *) in let old_heartbeat_time = if diff --git a/ocaml/xcp-rrdd/bin/rrdd/rrdd_monitor.ml b/ocaml/xcp-rrdd/bin/rrdd/rrdd_monitor.ml index e9c3282cafb..5d0d1acdd51 100644 --- a/ocaml/xcp-rrdd/bin/rrdd/rrdd_monitor.ml +++ b/ocaml/xcp-rrdd/bin/rrdd/rrdd_monitor.ml @@ -161,7 +161,8 @@ let update_rrds timestamp dss uuid_domids paused_vms = Hashtbl.replace vm_rrds vm_uuid {rrd; dss; domid} ) | None -> - log_backtrace () + info "%s: VM uuid=%s is not resident in this host, ignoring rrds" + __FUNCTION__ vm_uuid in let process_sr sr_uuid dss = let named_updates =