swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-30 09:30:40 +01:00
parent c06fbf3b89
commit fae8d37a47
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/devices.ml
View file

@ -16,7 +16,9 @@ let db_connection : (env, Caqti_miou.connection) Vif.Device.device =
match Pg.preflight conn with match Pg.preflight conn with
| Error err -> | Error err ->
Fmt.failwith "Database preflight failure: %a." Caqti_error.pp 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 module Secmod_signkey = struct
(* TODO (* TODO

2
src/mte.ml
View file

@ -36,7 +36,7 @@ let () =
let cfg = let cfg =
let port = Config.Exchange.port in let port = Config.Exchange.port in
let sockaddr = Unix.(ADDR_INET (inet_addr_loopback, 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 in
Miou_unix.run @@ fun () -> Miou_unix.run @@ fun () ->
Caqti_miou.Switch.run @@ fun caqti_switch -> Caqti_miou.Switch.run @@ fun caqti_switch ->