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

wip functorize secmod

Browse source
This commit is contained in:
swrup 2026-01-22 05:12:20 +01:00
parent 0fed6735db
commit 365a67577f
3 changed files with 394 additions and 349 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/devices.ml
View file

@ -21,4 +21,6 @@ let db_connection : (env, Caqti_miou.connection) Vif.Device.device =
let secmod =
let finally _key = () in
Vif.Device.v ~name:"secmod" ~finally [ Vif.Device.value db_connection ]
@@ fun conn (_env : env) -> Secmod.init conn
@@ fun (module Conn : Pg.CONN) (_env : env) ->
let sm : (module Secmod.S) = (module Secmod.Make (Conn)) in
sm