Improve precision of duration field in view-metrics (#1565)

* Improve precision of metrics timestamp.

* Add change entry.

---------

Co-authored-by: Ulysse <[email protected]>

Author: Tim-ats-d

CHANGES.md

@@ -4,6 +4,10 @@
 
 - Make `code-lens` for nested let bindings configurable (#1567)
 
+## Fixes
+
+- Improve precision of collected metrics timestamps. (#1565)
+
 # 1.24.0
 
 ## Features

ocaml-lsp-server/src/document.ml

@@ -156,10 +156,10 @@ end = struct
     let task =
       match
         Lev_fiber.Thread.task t.thread ~f:(fun () ->
-          let start = Unix.time () in
+          let start = Unix.gettimeofday () in
           let pipeline = make_pipeline () in
           let res = Mpipeline.with_pipeline pipeline (fun () -> f pipeline) in
-          let stop = Unix.time () in
+          let stop = Unix.gettimeofday () in
           res, start, stop)
       with
       | Error `Stopped -> assert false