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

add caqti device

Browse source
This commit is contained in:
swrup 2025-11-11 03:12:12 +01:00
parent 606d2a6045
commit 4749bb7c62
7 changed files with 83 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/mte.ml
View file

@ -113,6 +113,7 @@ let routes =
get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys;
get (rel / "db" /?? nil) --> Database.test;
]
let () =
@ -122,7 +123,12 @@ let () =
Vif.config sockaddr
in
Miou_unix.run @@ fun () ->
let env = () in
let devices = Vif.Devices.[ Devices.secmod_signkey; Devices.secmod_denom ] in
Caqti_miou.Switch.run @@ fun caqti_switch ->
let env : Devices.env =
{ caqti_switch; db_uri= Config.Exchangedb_postgres.config }
in
let devices =
Vif.Devices.[ Devices.secmod_signkey; Devices.secmod_denom; Devices.caqti ]
in
let middlewares = Vif.Middlewares.[] in
Vif.run ~cfg ~devices ~middlewares routes env