better module for BytesXX

This commit is contained in:
swrup 2026-02-26 16:20:20 +01:00 committed by Swrup
parent 7c989e590a
commit f9ebdb0a96
5 changed files with 61 additions and 13 deletions

View file

@ -411,11 +411,7 @@ let disable_wire ~output ~master_key ~payto_uri =
let drain ~output ~master_key ~debit_account_section ~credit_payto_uri ~wtid
~date ~amount =
let* key = read_master_key_file master_key in
let* () =
match String.length wtid = 32 with
| false -> Error "invalid wtid: must be 32 bytes"
| true -> Ok ()
in
let* wtid = Api.Bytes32.of_octets wtid in
let master_sig =
let open Signatures.MasterDrainProfit in
signf (EddsaSignature.sign ~key)