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

fix Pg.get_active_signkeys

Browse source
This commit is contained in:
swrup 2026-01-22 03:54:15 +01:00
parent 34e89a22bf
commit bf61b306ba
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/pg.ml
View file

@ -55,10 +55,9 @@ let find_signkey =
let get_active_signkeys = let get_active_signkeys =
let get_active_signkeys = let get_active_signkeys =
Caqti_type.(time ->* signkey_data) Caqti_type.(time ->* signkey_data)
"SELECT exchange_pub, valid_from, expire_sign, expire_legal, \ "SELECT exchange_pub, valid_from, expire_sign, expire_legal, master_sig, \
exchange_sign_keys.master_sig, signkey_revocations.master_sig FROM \ NULL FROM exchange_sign_keys esk WHERE expire_sign > $1 AND NOT EXISTS \
exchange_sign_keys esk WHERE expire_sign > $1 AND NOT EXISTS (SELECT \ (SELECT esk_serial FROM signkey_revocations skr WHERE esk.esk_serial = \
esk_serial FROM signkey_revocations skr WHERE esk.esk_serial = \
skr.esk_serial)" skr.esk_serial)"
in in
fun (module Conn : CONN) -> fun (module Conn : CONN) ->