+ wip logs

This commit is contained in:
swrup 2025-11-30 10:26:34 +01:00
parent f468380451
commit e4db8cdab5

View file

@ -48,6 +48,14 @@ let () =
[ Devices.db_connection; Devices.secmod_signkey; Devices.secmod_denom ] [ Devices.db_connection; Devices.secmod_signkey; Devices.secmod_denom ]
in in
let middlewares = Vif.Middlewares.[] in let middlewares = Vif.Middlewares.[] in
let print_src_list () =
let src_l = Logs.Src.list () in
let pp_src_list =
Fmt.list ~sep:(Fmt.any ", ") (Fmt.using Logs.Src.name Fmt.string)
in
Logs.debug (fun m -> m "src list: %a" pp_src_list src_l)
in
print_src_list ();
Logs.info (fun m -> Logs.info (fun m ->
m ~tags:(Util.Log_reporter.detail "...") "Starting MTE server"); m ~tags:(Util.Log_reporter.detail "...") "Starting MTE server");
Vif.run ~cfg ~devices ~middlewares routes env Vif.run ~cfg ~devices ~middlewares routes env