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

Browse source
This commit is contained in:
swrup 2025-11-23 15:39:04 +01:00
parent 604557894d
commit 8498aa768c
1 changed files with 3 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/pg.ml
View file

@ -80,7 +80,7 @@ let preflight =
fun (module Conn : Caqti_miou.CONNECTION) -> fun (module Conn : Caqti_miou.CONNECTION) ->
Syntax.list_iter (fun p -> Conn.exec p ()) l Syntax.list_iter (fun p -> Conn.exec p ()) l
let _lookup_signing_key = let lookup_signing_key =
let lookup_signing_key = let lookup_signing_key =
Caqti_type.(eddsa_public ->? t3 ptime ptime ptime) Caqti_type.(eddsa_public ->? t3 ptime ptime ptime)
"SELECT valid_from, expire_sign, expire_legal FROM exchange_sign_keys \ "SELECT valid_from, expire_sign, expire_legal FROM exchange_sign_keys \
@ -106,7 +106,7 @@ let activate_signing_key =
Conn.exec insert_signkey Conn.exec insert_signkey
(pub, stamp_start, stamp_expire, stamp_end, master_sig) (pub, stamp_start, stamp_expire, stamp_end, master_sig)
let _lookup_denomination_key = let lookup_denomination_key =
let lookup_denomination_key = let lookup_denomination_key =
Caqti_type.( Caqti_type.(
denomination_hash denomination_hash
@ -119,7 +119,7 @@ let _lookup_denomination_key =
fun (module Conn : CONN) (h_denom_pub : DenominationHash.t) -> fun (module Conn : CONN) (h_denom_pub : DenominationHash.t) ->
Conn.find_opt lookup_denomination_key h_denom_pub Conn.find_opt lookup_denomination_key h_denom_pub
let _add_denomination_key = let add_denomination_key =
let denomination_insert = let denomination_insert =
Caqti_type.( Caqti_type.(
t12 denomination_hash rsa_public eddsa_signature ptime ptime ptime ptime t12 denomination_hash rsa_public eddsa_signature ptime ptime ptime ptime
@ -165,23 +165,3 @@ let _add_denomination_key =
fee_deposit, fee_deposit,
fee_refresh, fee_refresh,
(fee_refund, age_mask) ) (fee_refund, age_mask) )
(* ----- *)
let pg_todo () = assert false
let lookup_signing_key = pg_todo
let iterate_active_signkeys = pg_todo
let insert_signkey_revocation = pg_todo
let lookup_signkey_revocation = pg_todo
(* denominations *)
let insert_denomination_info = pg_todo
let get_denomination_info = pg_todo
let get_denomination_by_serial = pg_todo
let iterate_denomination_info = pg_todo
let iterate_denominations = pg_todo
let get_coin_denomination = pg_todo
let insert_denomination_revocation = pg_todo
let get_denomination_revocation = pg_todo
let lookup_denomination_key = pg_todo
let add_denomination_key = pg_todo