2025/ocaml/lib/infrastructure/log.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module LogsAdapter = struct
  type 'a t = ('a, unit) Logs.msgf

  let app msgf = Logs.app msgf

  let err msgf = Logs.err msgf

  let warn msgf = Logs.warn msgf

  let info msgf = Logs.info msgf

  let debug msgf = Logs.debug msgf
end

module Logger = Application.Logger.Make (LogsAdapter)