From d08ec9d21b56ccad803b3b8937ad8aa6e64f9598 Mon Sep 17 00:00:00 2001 From: DJ O'Leary Date: Thu, 11 Dec 2025 03:52:21 +0100 Subject: refactor(logger): remove own logger impl just use Logs directly for now --- 2025/ocaml/lib/application/logger.ml | 39 ------------------------------------ 2025/ocaml/lib/infrastructure/log.ml | 15 -------------- 2 files changed, 54 deletions(-) delete mode 100644 2025/ocaml/lib/application/logger.ml delete mode 100644 2025/ocaml/lib/infrastructure/log.ml diff --git a/2025/ocaml/lib/application/logger.ml b/2025/ocaml/lib/application/logger.ml deleted file mode 100644 index 3d63201..0000000 --- a/2025/ocaml/lib/application/logger.ml +++ /dev/null @@ -1,39 +0,0 @@ -module type LoggerType = sig - type 'a t - - val app : 'a t -> unit - - val err : 'a t -> unit - - val warn : 'a t -> unit - - val info : 'a t -> unit - - val debug : 'a t -> unit -end - -module type S = sig - type 'a t - - val app : 'a t -> unit - - val err : 'a t -> unit - - val warn : 'a t -> unit - - val info : 'a t -> unit - - val debug : 'a t -> unit -end - -module Make (Logger : LoggerType) : S with type 'a t := 'a Logger.t = struct - let app = Logger.app - - let err = Logger.err - - let warn = Logger.warn - - let info = Logger.info - - let debug = Logger.debug -end diff --git a/2025/ocaml/lib/infrastructure/log.ml b/2025/ocaml/lib/infrastructure/log.ml deleted file mode 100644 index a15c1e7..0000000 --- a/2025/ocaml/lib/infrastructure/log.ml +++ /dev/null @@ -1,15 +0,0 @@ -module LogsAdapter = struct - type 'a t = ('a, unit) Logs.msgf - - let app msgf = Logs.app msgf - - let err msgf = Logs.err msgf - - let warn msgf = Logs.warn msgf - - let info msgf = Logs.info msgf - - let debug msgf = Logs.debug msgf -end - -module Logger = Application.Logger.Make (LogsAdapter) -- cgit v1.2.3