From 60074a132f568f17f06bd5a520a09a3fa4348c93 Mon Sep 17 00:00:00 2001 From: DJ O'Leary Date: Mon, 1 Dec 2025 02:38:36 +0100 Subject: refactor: remove own logger implementation and use logs --- 2025/ocaml/lib/infrastructure/logger.ml | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 2025/ocaml/lib/infrastructure/logger.ml (limited to '2025/ocaml/lib/infrastructure/logger.ml') diff --git a/2025/ocaml/lib/infrastructure/logger.ml b/2025/ocaml/lib/infrastructure/logger.ml deleted file mode 100644 index d0d37a3..0000000 --- a/2025/ocaml/lib/infrastructure/logger.ml +++ /dev/null @@ -1,31 +0,0 @@ -module type Configurable_Logger = sig - include Application.Logger_sig.Logger - - val configure_logger : level:Logs.level option -> unit - - val parse_level : - env:Cmdliner.Cmd.Env.info -> Logs.level option Cmdliner.Term.t - - val configure_renderer : style_renderer:Fmt.style_renderer option -> unit -end - -module CLI_Logger : Configurable_Logger = struct - let configure_logger ~level = - Logs.set_level level ; - Logs.set_reporter (Logs_fmt.reporter ()) - - let parse_level ~env = Logs_cli.level ~env () - - let configure_renderer ~style_renderer = - Fmt_tty.setup_std_outputs ?style_renderer () - - let app msg = Logs.app (fun m -> m "%s" msg) - - let err msg = Logs.err (fun m -> m "%s" msg) - - let warn msg = Logs.warn (fun m -> m "%s" msg) - - let info msg = Logs.info (fun m -> m "%s" msg) - - let debug msg = Logs.debug (fun m -> m "%s" msg) -end -- cgit v1.2.3