diff options
| -rw-r--r-- | 2025/ocaml/lib/application/logger.ml | 39 | ||||
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/log.ml | 15 |
2 files changed, 0 insertions, 54 deletions
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) |