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-17 23:49:00 +02:00
parent 6413d7f5c3
commit aa0bea0284
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/binary_formats.ml
View file

@ -107,12 +107,12 @@ module UTIL = struct
module MK_HASH_64 () : sig module MK_HASH_64 () : sig
type t = private { hash: string } type t = private { hash: string }
val f : string -> t val of_string : string -> t
val bin : t Bin.t val bin : t Bin.t
end = struct end = struct
type t = { hash: string } type t = { hash: string }
let f s = let of_string s =
match String.length s = 64 with match String.length s = 64 with
| false -> Fmt.failwith "SHA512 failure: data is not 64bytes" | false -> Fmt.failwith "SHA512 failure: data is not 64bytes"
| true -> | true ->

4
src/management.ml
View file

@ -28,8 +28,8 @@ 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.f (RsaPublicKey.to_octets pub) in let h_denom_pub = DenominationHash.of_string (RsaPublicKey.to_octets pub) in
let h_section_name = HashCode.f 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 }
in in