From e68cda76071000e5513521cd307bebb0e3e8c19c Mon Sep 17 00:00:00 2001 From: Frediano Ziglio Date: Tue, 7 Jan 2025 10:35:13 +0000 Subject: [PATCH] Use Mtime.Span.to_float_ns instead of Mtime.Span.to_uint64_ns+Int64.to_float Minor code reduction. Signed-off-by: Frediano Ziglio --- ocaml/libs/xapi-stdext/lib/xapi-stdext-threads/scheduler.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/ocaml/libs/xapi-stdext/lib/xapi-stdext-threads/scheduler.ml b/ocaml/libs/xapi-stdext/lib/xapi-stdext-threads/scheduler.ml index a544ed79bbb..200b9925786 100644 --- a/ocaml/libs/xapi-stdext/lib/xapi-stdext-threads/scheduler.ml +++ b/ocaml/libs/xapi-stdext/lib/xapi-stdext-threads/scheduler.ml @@ -36,8 +36,7 @@ let lock = Mutex.create () module Clock = struct let span s = Mtime.Span.of_uint64_ns (Int64.of_float (s *. 1e9)) - let span_to_s span = - Mtime.Span.to_uint64_ns span |> Int64.to_float |> fun ns -> ns /. 1e9 + let span_to_s span = Mtime.Span.to_float_ns span |> fun ns -> ns /. 1e9 let add_span clock secs = (* return mix or max available value if the add overflows *)