diff options
Diffstat (limited to '2025/ocaml/lib/infrastructure')
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/dune | 6 | ||||
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/logger.ml | 31 |
2 files changed, 1 insertions, 36 deletions
diff --git a/2025/ocaml/lib/infrastructure/dune b/2025/ocaml/lib/infrastructure/dune index b2c72e0..b9d250f 100644 --- a/2025/ocaml/lib/infrastructure/dune +++ b/2025/ocaml/lib/infrastructure/dune @@ -4,11 +4,7 @@ application domain fmt - fmt.cli - fmt.tty - logs - logs.cli - logs.fmt) + logs) (inline_tests) (preprocess (pps 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 |
