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

pg: left join to get revocations

Browse source
This commit is contained in:
swrup 2026-02-03 13:21:00 +01:00
parent 6aba22aa41
commit 67bd144bb0
2 changed files with 23 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/secmod.ml
View file

@ -74,8 +74,7 @@ module Make (Conn : Pg.CONN) = struct
let dir = Fpath.(v "data" / "secmod")
let db_lookup_signkey_data conn fname priv =
let pub = EddsaPrivateKey.pub_of_priv priv in
let db_lookup_signkey_data conn fname pub =
let* opt = Pg.find_signkey conn pub |> unwrap_err_caqti in
match opt with
| None ->
@ -102,7 +101,8 @@ module Make (Conn : Pg.CONN) = struct
match opt with
| None -> Ok None
| Some priv ->
let* sk_data = db_lookup_signkey_data conn fname priv in
let pub = EddsaPrivateKey.pub_of_priv priv in
let* sk_data = db_lookup_signkey_data conn fname pub in
let signkey = { priv; sk_data } in
Ok (Some signkey)