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

Browse source
This commit is contained in:
swrup 2026-03-12 17:06:03 +01:00
parent 98da556632
commit 70ce0aeb8f
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mte.ml
View file

@ -91,6 +91,8 @@ let () =
Caqti_miou.Switch.run @@ fun sw -> Caqti_miou.Switch.run @@ fun sw ->
let db_conn = let db_conn =
let db_uri = Config.Exchangedb_postgres.config in let db_uri = Config.Exchangedb_postgres.config in
(* IMPROVE: use caqti pool
[connect_pool] with parameter [?post_connect] for preflight *)
match Caqti_mnet.connect ~sw stack tcp dns db_uri with match Caqti_mnet.connect ~sw stack tcp dns db_uri with
| Error err -> | Error err ->
Fmt.failwith "Database connection failure: %a." Caqti_error.pp err Fmt.failwith "Database connection failure: %a." Caqti_error.pp err