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

wip 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 d0be4593c7
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/pg.ml
View file

@ -39,12 +39,13 @@ let preflight =
in
fun (module Conn : CONN) -> Syntax.list_iter (fun p -> Conn.exec p ()) l
(* TODO revocation master_sig *)
let find_signkey =
let find_signkey =
Caqti_type.(eddsa_pub ->? signkey_data)
"SELECT exchange_pub, valid_from, expire_sign, expire_legal, master_sig, \
NULL FROM exchange_sign_keys WHERE exchange_pub=$1"
"SELECT esk.exchange_pub, esk.valid_from, esk.expire_sign, \
esk.expire_legal, esk.master_sig, sr.master_sig FROM exchange_sign_keys \
AS esk LEFT JOIN signkey_revocations AS sr ON esk.esk_serial = \
sr.esk_serial WHERE esk.exchange_pub=$1"
in
fun (module Conn : CONN) (exchange_pub : EddsaPublicKey.t) ->
Conn.find_opt find_signkey exchange_pub