src/devices.ml

@@ -16,7 +16,9 @@ let db_connection : (env, Caqti_miou.connection) Vif.Device.device =
       match Pg.preflight conn with
       | Error err ->
           Fmt.failwith "Database preflight failure: %a." Caqti_error.pp err
-      | Ok () -> conn)
+      | Ok () ->
+          Logs.debug (fun m -> m "database connection initialized.@.");
+          conn)
 
 module Secmod_signkey = struct
   (* TODO

src/mte.ml

@@ -36,7 +36,7 @@ let () =
   let cfg =
     let port = Config.Exchange.port in
     let sockaddr = Unix.(ADDR_INET (inet_addr_loopback, port)) in
-    Vif.config ~reporter:Logs.nop_reporter sockaddr
+    Vif.config ~reporter:Util.Log_reporter.reporter sockaddr
   in
   Miou_unix.run @@ fun () ->
   Caqti_miou.Switch.run @@ fun caqti_switch ->