update to handle mtime 2.0

dune-project

@@ -33,7 +33,8 @@
   (alcotest :with-test)
   (odoc :with-doc))
  (depopts
-  mtime ; for profiling stuff
+  (mtime
+   (>= 2.0)) ; for profiling stuff
   memtrace ; memory profiling
   zarith ; for arith
   )

sidekick.opam

@@ -16,7 +16,11 @@ depends: [
   "alcotest" {with-test}
   "odoc" {with-doc}
 ]
-depopts: ["mtime" "memtrace" "zarith"]
+depopts: [
+  "mtime" {>= "2.0"}
+  "memtrace"
+  "zarith"
+]
 conflicts: [
   "zarith" {< "1.8"}
 ]

src/tef/Sidekick_tef.real.ml

@@ -31,7 +31,7 @@ module Make () : P.BACKEND = struct
 
   let get_ts () : float =
     let now = Mtime_clock.now () in
-    Mtime.Span.to_us (Mtime.span program_start now)
+    Mtime.Span.to_float_ns (Mtime.span program_start now) /. 1e3
 
   let emit_sep_ () =
     if !first_ then