From 58d165a4156336473a9f8bbe0f55823d0b973fc2 Mon Sep 17 00:00:00 2001
From: DJ O'Leary <dijitol@proton.me>
Date: Fri, 5 Dec 2025 01:50:42 +0100
Subject: feat(logger): implement logger functor

still needs to be injected somehow
---
 2025/ocaml/lib/infrastructure/log.ml | 32 +++++++++++---------------------
 1 file changed, 11 insertions(+), 21 deletions(-)

(limited to '2025/ocaml/lib/infrastructure/log.ml')

diff --git a/2025/ocaml/lib/infrastructure/log.ml b/2025/ocaml/lib/infrastructure/log.ml
index 60f52b5..a15c1e7 100644
--- a/2025/ocaml/lib/infrastructure/log.ml
+++ b/2025/ocaml/lib/infrastructure/log.ml
@@ -1,25 +1,15 @@
-type level = App | Err | Warning | Info | Debug
+module LogsAdapter = struct
+  type 'a t = ('a, unit) Logs.msgf
 
-let log = function
-  | App ->
-      Logs.app
-  | Err ->
-      Logs.err
-  | Warning ->
-      Logs.warn
-  | Info ->
-      Logs.info
-  | Debug ->
-      Logs.debug
+  let app msgf = Logs.app msgf
 
-(** [pp_passthrough pp x] is [x] with the side-effects
-    caused by calling [pp] on [x]. *)
-let pp_passthrough pp x = pp x ; x
+  let err msgf = Logs.err msgf
 
-(** [pp_list lvl msg lst] prints all elements of [lst] with the
-    message [msg] at the level [lvl] *)
-let pp_list lvl msg = List.iter (fun elmt -> log lvl (fun m -> m msg elmt))
+  let warn msgf = Logs.warn msgf
 
-(** [pp_sequence lvl msg seq] prints all elements of [seq] with the
-    message [msg] at the level [lvl] *)
-let pp_sequence lvl msg = Seq.iter (fun elmt -> log lvl (fun m -> m msg elmt))
+  let info msgf = Logs.info msgf
+
+  let debug msgf = Logs.debug msgf
+end
+
+module Logger = Application.Logger.Make (LogsAdapter)
-- 
cgit v1.2.3