summaryrefslogtreecommitdiff
path: root/2025/ocaml/lib/presentation/cli.ml
diff options
context:
space:
mode:
Diffstat (limited to '2025/ocaml/lib/presentation/cli.ml')
-rw-r--r--2025/ocaml/lib/presentation/cli.ml15
1 files changed, 15 insertions, 0 deletions
diff --git a/2025/ocaml/lib/presentation/cli.ml b/2025/ocaml/lib/presentation/cli.ml
new file mode 100644
index 0000000..c306ad2
--- /dev/null
+++ b/2025/ocaml/lib/presentation/cli.ml
@@ -0,0 +1,15 @@
+open Cmdliner
+open Cmdliner.Term.Syntax
+
+let logger () =
+ let env = Cmd.Env.info "LOG_LEVEL" in
+ let+ level = Infrastructure.Logger.CLI_Logger.parse_level ~env
+ and+ style_renderer = Fmt_cli.style_renderer () in
+ Infrastructure.Logger.CLI_Logger.configure_logger ~level ;
+ Fmt_tty.setup_std_outputs ?style_renderer () ;
+ let result_code = 0 in
+ result_code
+
+let cmd = Cmd.v (Cmd.info "tool") @@ logger ()
+
+let run () = Cmd.eval' cmd