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-17 11:11:46 +01:00
parent a937595d6f
commit fcafbd4bdf
1 changed files with 15 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/secmod.ml
View file

@ -268,26 +268,21 @@ module Make (Conn : Pg.CONN) = struct
() ()
let make_new () = let make_new () =
let lock = Miou.Mutex.create () in let sm_key, sm_pubkey = Mirage_crypto_ec.Ed25519.generate () in
let sm_key_priv, sm_key_pub = Mirage_crypto_ec.Ed25519.generate () in let t =
let sk_ht = {
[ make_new_signkey () ] sm_key;
|> List.map (fun v -> (v.sk_data.pub, v)) sm_pubkey;
|> List.to_seq sk_ht= Hashtbl.create 0xff;
|> Hashtbl.of_seq dn_ht= Hashtbl.create 0xff;
sk_key_ht= Hashtbl.create 0xff;
dn_key_ht= Hashtbl.create 0xff;
future_sk_ht= Hashtbl.create 0xff;
future_dn_ht= Hashtbl.create 0xff;
future_sk_key_ht= Hashtbl.create 0xff;
future_dn_key_ht= Hashtbl.create 0xff;
}
in in
let dn_section_name_ht = Hashtbl.create 0xff in
let dn_ht =
Config.Coin.all_coins
|> List.map (fun coin ->
let denom = make_new_denom coin in
Hashtbl.replace dn_section_name_ht denom.dn_data.h_pub
coin.section_name;
(denom.dn_data.h_pub, denom))
|> List.to_seq
|> Hashtbl.of_seq
in
{ lock; sm_key_priv; sm_key_pub; sk_ht; dn_ht; dn_section_name_ht }
let t = let t =
match load (module Conn) with match load (module Conn) with