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

JJ: Description from the destination commit:

Browse source 
clean up module mess

JJ: Description from source commit:
wip++
This commit is contained in:
swrup 2025-11-21 20:05:05 +01:00
parent d2f334f4b1
commit 3380c229eb
6 changed files with 447 additions and 499 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/denomination.ml
View file

@ -12,7 +12,7 @@ type t = {
fee_deposit: Amount.t;
fee_refresh: Amount.t;
fee_refund: Amount.t;
h_pub: Binary_formats.DenominationHash.t;
h_pub: Bin_type.DenominationHash.t;
sign: string -> RsaSignature.t;
master_sig: EddsaSignature.t option;
}
@ -47,7 +47,7 @@ let make
let open Mirage_crypto_pk.Rsa in
let priv = generate ~bits:rsa_keysize () in
let pub = pub_of_priv priv in
let h_pub = Binary_formats.DenominationHash.hash pub in
let h_pub = Bin_type.DenominationHash.hash (RsaPublicKey.to_octets pub) in
let sign = RsaSignature.sign ~key:priv in
let master_sig = None in
{