let run_main ?argv ?override_configuration ?additional_commands () =
let main_lwt_thread =
cmdliner_main ?argv ?override_configuration ?additional_commands ()
in
Log.(s "Calling Lwt_main.run" @ very_verbose);
match Lwt_main.run (main_lwt_thread >>< Return_code.transform_error) with
| `Ok () -> exit 0
| `Error n -> exit n