diff --git a/projects/miragesdk/src/test/jbuild b/projects/miragesdk/src/test/jbuild index c1b135f79..ab76599e9 100644 --- a/projects/miragesdk/src/test/jbuild +++ b/projects/miragesdk/src/test/jbuild @@ -2,7 +2,7 @@ (executables ((names (test)) - (libraries (sdk alcotest astring mtime.os mirage-flow-lwt)))) + (libraries (sdk alcotest astring mtime mtime.clock.os mirage-flow-lwt)))) (alias ((name runtest) diff --git a/projects/miragesdk/src/test/test.ml b/projects/miragesdk/src/test/test.ml index 637148770..4e4d87c6e 100644 --- a/projects/miragesdk/src/test/test.ml +++ b/projects/miragesdk/src/test/test.ml @@ -283,7 +283,7 @@ let reporter ?(prefix="") () = let k _ = over (); k () in let ppf = match level with Logs.App -> Fmt.stdout | _ -> Fmt.stderr in let with_stamp h _tags k fmt = - let dt = Mtime.to_us (Mtime.elapsed ()) in + let dt = Mtime.Span.to_us (Mtime_clock.elapsed ()) in Fmt.kpf k ppf ("%s%+04.0fus %a %a @[" ^^ fmt ^^ "@]@.") prefix dt