package sihl

  1. Overview
  2. Docs

Source file log.ml

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 ()
;;