Update for new mtime 2.x

Signed-off-by: Dmtrii.Kosarev <[email protected]>

OCanren.opam

@@ -33,7 +33,7 @@ depends: [
   "benchmark" {with-test}
   "ocamlformat" {with-test & >= "0.26.1" & < "0.27"}
   "ppx_inline_test"
-  "mtime" {< "2.0.0"}
+  "mtime" {>= "2.0.0"}
   "odoc" {with-doc}
 ]
 build: [

add_timer/install_timer.ml

@@ -9,7 +9,10 @@ module Impl : T = struct
   let elapsed = Mtime_clock.elapsed
   let abs_diff start fin =
     let span = Mtime.Span.abs_diff start fin in
-    Mtime.Span.({s = to_s span; ms = to_ms span})
+    let ns = Mtime.Span.to_float_ns span in
+    let ms = ns *. 1000000.0 in
+    let s = ms *. 1000.0 in
+    {s; ms }
 
 end
 

dune-project

@@ -34,7 +34,7 @@
     (< 0.27)))
   ppx_inline_test
   (mtime
-   (< 2.0.0)))
+   (>= 2.0.0)))
  (authors
   "Dmitrii Boulytchev https://github.com/dboulytchev"
   "Dmitrii Kosarev https://github.com/Kakadu"