1
2
3
4
5
6
7
8
9
10
11
12
let get_log_level () =
match Sys.getenv_opt "LOG_LEVEL" with
| Some "error" -> Some Logs.Error
| Some "info" -> Some Logs.Info
| _ -> Some Logs.Debug
;;
let default_reporter () =
Fmt_tty.setup_std_outputs ();
Logs.set_level (get_log_level ());
Logs_fmt.reporter ()
;;