+wip db-sm different key state issue

This commit is contained in:
swrup 2026-02-23 12:29:49 +01:00
parent 08d18467f8
commit 74d909fa90
6 changed files with 59 additions and 33 deletions

View file

@ -1,6 +1,4 @@
(* TODO
check signed/unsigned ints
check endianness
can we avoid amount tuple boilerplate?
clean up caqti error type
@ -44,12 +42,12 @@ let find_signkey =
fun (module Conn : CONN) (exchange_pub : EddsaPublicKey.t) ->
Conn.find_opt req exchange_pub
let get_active_signkeys =
let get_signkeys =
let req =
Caqti_type.(time ->* signkey)
"SELECT esk.exchange_pub, esk.valid_from, esk.expire_sign, \
esk.expire_legal, esk.master_sig FROM exchange_sign_keys esk WHERE \
expire_sign > $1 AND NOT EXISTS (SELECT esk_serial FROM \
esk.expire_sign > $1 AND NOT EXISTS (SELECT esk_serial FROM \
signkey_revocations AS skr WHERE esk.esk_serial = skr.esk_serial)"
in
fun (module Conn : CONN) ~now -> Conn.collect_list req now