12 lines
299 B
OCaml
12 lines
299 B
OCaml
|
let setup_log style_renderer level =
|
||
|
|
Fmt_tty.setup_std_outputs ?style_renderer ();
|
||
|
|
Logs.set_level level;
|
||
|
|
Logs.set_reporter (Logs_fmt.reporter ~dst:Format.std_formatter ())
|
||
|
|
|
||
|
|
open Cmdliner
|
||
|
|
|
||
|
|
let setup_log =
|
||
|
|
Term.(const setup_log
|
||
|
|
$ Fmt_cli.style_renderer ()
|
||
|
|
$ Logs_cli.level ())
|