package acgtk

  1. Overview
  2. Docs
package acgtk
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file timer.ml

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)