2025/ocaml/bin/main.ml


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

let env_log_level =
  match Sys.getenv_opt "LOG_LEVEL" with
  | None ->
      Some Logs.Warning
  | Some lvl -> (
    match Logs.level_of_string lvl with Error _ -> None | Ok v -> v )

let main () =
  let log_level = env_log_level in
  Logs.set_level log_level ;
  Logs.set_reporter (Logs_fmt.reporter ()) ;
  Logs.info (fun m ->
      m "Started application with LOG_LEVEL=%s" (Logs.level_to_string log_level) ) ;
  Presentation.Cli.run ()

let () = if !Sys.interactive then () else exit (main ())