Source file `loga.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(*
 * Copyright yutopp 2017 - .
 *
 * Distributed under the Boost Software License, Version 1.0.
 * (See accompanying file LICENSE_1_0.txt or copy at
 * http://www.boost.org/LICENSE_1_0.txt)
 *)

module Severity = Severity
module Logger = Logger
module Timer = Timer

let logger = Logger.create_default ()

module type HAS_LOGGER = sig
  module Logger = Logger

  val logger : Logger.t
end

let with_logger logger =
  ( module struct
    module Logger = Logger

    let logger = logger
  end : HAS_LOGGER )