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

Browse source
This commit is contained in:
swrup 2025-10-18 00:50:31 +02:00
parent 08512e74fa
commit cec8ba878d
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/binary_formats.ml
View file

@ -235,7 +235,7 @@ end
module DenominationHash = struct module DenominationHash = struct
include HASH_64 include HASH_64
let mk (pub : Mirage_crypto_pk.Rsa.pub) = let hash (pub : Mirage_crypto_pk.Rsa.pub) =
pub pub
|> GNUNET_RsaPublicKey.of_pub |> GNUNET_RsaPublicKey.of_pub
|> Bin.to_string GNUNET_RsaPublicKey.bin |> Bin.to_string GNUNET_RsaPublicKey.bin

2
src/management.ml
View file

@ -28,7 +28,7 @@ let mk_future_denom denom_secmod_sign_f
in in
let denom_secmod_sig = let denom_secmod_sig =
let open Binary_formats in let open Binary_formats in
let h_denom_pub = DenominationHash.mk pub in let h_denom_pub = DenominationHash.hash pub in
let h_section_name = HashCode.of_string section_name in let h_section_name = HashCode.of_string section_name in
let anchor_time = let anchor_time =
TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start } TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }