feat(logger): implement logger functor

still needs to be injected somehow

1 files changed, 39 insertions, 0 deletions

diff --git a/2025/ocaml/lib/application/logger.ml b/2025/ocaml/lib/application/logger.ml
new file mode 100644
index 0000000..3d63201
--- /dev/null
+++ b/2025/ocaml/lib/application/logger.ml
@@ -0,0 +1,39 @@
+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