github/linuxkit
1
0
Fork 0
mirror of https://github.com/linuxkit/linuxkit.git synced 2025-07-20 09:39:08 +00:00
Code Issues Projects Releases Wiki Activity

sdk: use mtime 1.0

Browse Source 
Signed-off-by: Thomas Gazagnaire <thomas@gazagnaire.org>
This commit is contained in:
Thomas Gazagnaire 2017-06-06 13:40:14 +02:00
parent b845703a79
commit c0d999dbab
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
projects/miragesdk/src/test/jbuild
View File

@ -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)

2
projects/miragesdk/src/test/test.ml
View File

@ -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