+wip db-sm different key state issue
This commit is contained in:
parent
b647223fc2
commit
85b1249cde
6 changed files with 59 additions and 33 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue