This commit is contained in:
swrup 2026-02-03 20:00:10 +01:00
parent 52257597a5
commit aa493a5208

View file

@ -60,8 +60,7 @@ let sign ~master_key ~input ~output =
let revoke_denom ~output ~master_key ~h_denom =
let* key = read_master_key_file master_key in
let* h_denom = B32.decode h_denom in
let h_denom_pub = Bin_type.DenominationHash.of_octets h_denom in
let* h_denom_pub = Bin_type.DenominationHash.of_b32 h_denom in
let denom_revoke =
let master_sig =
let open Bin_sig.MasterDenominationKeyRevocation in
@ -134,4 +133,5 @@ let global_fees ~output ~master_key ~start_date ~end_date ~history_fee
}
in
let* s = Api.encode Api.GlobalFees.jsont global_fees in
write_file output s
let* () = write_file output s in
Ok ()