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

working database~~

Browse source
This commit is contained in:
swrup 2025-11-22 21:40:24 +01:00
parent 0c5622324c
commit 056c111d88
5 changed files with 99 additions and 92 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mte.ml
View file

@ -113,7 +113,7 @@ let routes =
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys;
get (rel / "db_test" /?? nil) --> Database.test;
get (rel / "db_init" /?? nil) --> Database.init;
get (rel / "db_activate" /?? nil) --> Database.test_activate;
]
let () =
@ -128,8 +128,8 @@ let () =
{ caqti_switch; db_uri= Config.Exchangedb_postgres.config }
in
let devices =
(* todo: rm unneeded env parameter from secmod devices *)
Vif.Devices.[ Devices.secmod_signkey; Devices.secmod_denom; Devices.caqti ]
Vif.Devices.
[ Devices.secmod_signkey; Devices.secmod_denom; Devices.db_connection ]
in
let middlewares = Vif.Middlewares.[] in
Vif.run ~cfg ~devices ~middlewares routes env