Source file `logger.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open Core

let src = Logs.Src.create "mssql"
let lib_tag = Logs.Tag.def "lib" Format.pp_print_string

let msg ?(tags = Logs.Tag.empty) level fmt =
  Async_helper.safely_run_in_async
  @@ fun () ->
  ksprintf
    (fun msg ->
      Logs.msg ~src level (fun m ->
          let tags = Logs.Tag.add lib_tag "mssql" tags in
          m ~tags "%s" msg))
    fmt
;;

let debug ?tags fmt = msg ?tags Logs.Debug fmt
let info ?tags fmt = msg ?tags Logs.Info fmt
let error ?tags fmt = msg ?tags Logs.Error fmt