fixup! Clock: Change implementation of Date to use Ptime.t

Author: psafont

ocaml/xapi/xapi_xenops.ml

@@ -2315,13 +2315,13 @@ let update_vm ~__context id =
                     let update_time =
                       Db.VM_guest_metrics.get_last_updated ~__context ~self:gm
                     in
-                    if update_time < start_time then (
+                    if Date.is_earlier update_time ~than:start_time then (
                       debug
                         "VM %s guest metrics update time (%s) < VM start time \
                          (%s): deleting"
                         id
                         (Date.to_rfc3339 update_time)
-                        (Date.to_rfc3339 start_time) ;
+                        start_datetime ;
                       Xapi_vm_helpers.delete_guest_metrics ~__context ~self ;
                       check_guest_agent ()
                     )