1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type t = Mtime_clock.counter
let top = Mtime_clock.counter
let elapsed fmt c =
Mtime.Span.pp fmt (Mtime_clock.count c)
let diff fmt (c1, c2) =
Mtime.Span.(pp fmt (abs_diff (Mtime_clock.count c1) (Mtime_clock.count c2)))
module Log = Xlog.Make (struct
let name = "Timer"
end)
let msg = Log.msg
let app = Log.app
let err = Log.err
let warn = Log.warn
let info = Log.info
let debug = Log.debug
let set_level l = Logs.Src.set_level Log.src (Some l)