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

functorize secmod

Browse source
This commit is contained in:
swrup 2026-02-21 18:43:47 +01:00
parent 7f440077ed
commit cb33942711
6 changed files with 110 additions and 97 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/devices.ml
View file

@ -22,5 +22,5 @@ let keys =
let finally _key = () in
Vif.Device.v ~name:"keys" ~finally [ Vif.Device.value db_connection ]
@@ fun (module Conn : Pg.CONN) (_env : env) ->
let sm : (module Keys.S) = (module Keys.Make (Conn)) in
sm
let keys : (module Keys.S) = (module Keys.Make (Conn)) in
keys