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

Browse source
This commit is contained in:
swrup 2026-02-18 20:26:20 +01:00
parent 2dafed2273
commit 26d4f7b3e5
3 changed files with 9 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/http_info.ml
View file

@ -111,13 +111,12 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
let wallet_balance_limit_without_kyc = None in let wallet_balance_limit_without_kyc = None in
let hard_limits = [] in let hard_limits = [] in
let zero_limits = [] in let zero_limits = [] in
let dn_l = let* dn_l =
(*Pg.get_denominations db_conn |> unwrap_err_caqti *) let+ l = Pg.get_denominations db_conn |> unwrap_err_caqti in
Keys.get_denominations ()
|>
(* reverse chronological order *) (* reverse chronological order *)
List.sort (fun a b -> List.sort
Stdlib.compare b.Denomination.stamp_start a.stamp_start) (fun a b -> Stdlib.compare b.Denomination.stamp_start a.stamp_start)
l
in in
let list_issue_date = let list_issue_date =
match dn_l with match dn_l with
@ -147,11 +146,10 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
List.map denomgroup_of_denomdata l List.map denomgroup_of_denomdata l
in in
let signkeys = let* signkeys =
(* let now = Timestamp.of_ptime (Ptime_clock.now ()) in
let now = Ptime_clock.now () |> Option.some in let+ l = Pg.get_active_signkeys db_conn ~now |> unwrap_err_caqti in
let+ signkey_data_l = Pg.get_active_signkeys db_conn ~now |> unwrap_err_caqti in*) l
Keys.get_signkeys ()
|> List.sort (fun a b -> |> List.sort (fun a b ->
let open Signkey in let open Signkey in
Stdlib.compare b.stamp_start a.stamp_start) Stdlib.compare b.stamp_start a.stamp_start)

5
src/keys.ml
View file

@ -278,17 +278,12 @@ module Make (Conn : Pg.CONN) = struct
| None -> Fmt.failwith "Keys verify_with_signkey failure: not found." | None -> Fmt.failwith "Keys verify_with_signkey failure: not found."
| Some _sk -> EddsaSignature.verify ~key:pub s ~msg | Some _sk -> EddsaSignature.verify ~key:pub s ~msg
let get_signkeys () = t.sk_ht |> Hashtbl.to_seq_values |> List.of_seq
let get_denominations () = t.dn_ht |> Hashtbl.to_seq_values |> List.of_seq
let get_future_signkeys () = let get_future_signkeys () =
t.future_sk_ht |> Hashtbl.to_seq_values |> List.of_seq t.future_sk_ht |> Hashtbl.to_seq_values |> List.of_seq
let get_future_denominations () = let get_future_denominations () =
t.future_dn_ht |> Hashtbl.to_seq_values |> List.of_seq t.future_dn_ht |> Hashtbl.to_seq_values |> List.of_seq
let find_signkey pub = Hashtbl.find_opt t.sk_ht pub
let find_denomination h_pub = Hashtbl.find_opt t.dn_ht h_pub
let find_future_signkey pub = Hashtbl.find_opt t.future_sk_ht pub let find_future_signkey pub = Hashtbl.find_opt t.future_sk_ht pub
let find_future_denomination h_pub = Hashtbl.find_opt t.future_dn_ht h_pub let find_future_denomination h_pub = Hashtbl.find_opt t.future_dn_ht h_pub

4
src/keys_intf.ml
View file

@ -10,12 +10,8 @@ module type S = sig
val verify_with_signkey : val verify_with_signkey :
pub:eddsa_pub -> eddsa_sig -> msg:string -> (unit, string) result pub:eddsa_pub -> eddsa_sig -> msg:string -> (unit, string) result
val get_signkeys : unit -> Signkey.t list
val get_denominations : unit -> Denomination.t list
val get_future_signkeys : unit -> Api.FutureSignKey.t list val get_future_signkeys : unit -> Api.FutureSignKey.t list
val get_future_denominations : unit -> Api.FutureDenom.t list val get_future_denominations : unit -> Api.FutureDenom.t list
val find_signkey : eddsa_pub -> Signkey.t option
val find_denomination : denom_hash -> Denomination.t option
val find_future_signkey : eddsa_pub -> Api.FutureSignKey.t option val find_future_signkey : eddsa_pub -> Api.FutureSignKey.t option
val find_future_denomination : denom_hash -> Api.FutureDenom.t option val find_future_denomination : denom_hash -> Api.FutureDenom.t option