summaryrefslogtreecommitdiff
path: root/2025/ocaml/lib/infrastructure
diff options
context:
space:
mode:
Diffstat (limited to '2025/ocaml/lib/infrastructure')
-rw-r--r--2025/ocaml/lib/infrastructure/dune6
-rw-r--r--2025/ocaml/lib/infrastructure/logger.ml31
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