diff --git a/src/mte.ml b/src/mte.ml index 6dcc275d..93a6e91b 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -48,6 +48,14 @@ let () = [ Devices.db_connection; Devices.secmod_signkey; Devices.secmod_denom ] 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 -> m ~tags:(Util.Log_reporter.detail "...") "Starting MTE server"); Vif.run ~cfg ~devices ~middlewares routes env