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