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

wip debogue

Browse source
This commit is contained in:
swrup 2026-02-28 03:32:55 +01:00
parent f7cb91615d
commit e26ab52283
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/amount.ml
View file

@ -113,6 +113,6 @@ let bin =
let open Bin in let open Bin in
record make_exn record make_exn
|+ field beint64 (fun t -> t.value) |+ field beint64 (fun t -> t.value)
|+ field beint32 (fun t -> t.fraction) |+ field beint32 (fun t -> Int32.mul t.fraction 1_000_000_l)
|+ field (bytes currency_len) (fun t -> pad_currency_string t.currency) |+ field (bytes currency_len) (fun t -> pad_currency_string t.currency)
|> sealr |> sealr

5
test/validate_response.ml
View file

@ -75,6 +75,11 @@ let keys content =
let* () = let* () =
denom_l denom_l
|> list_iter (fun dn -> |> list_iter (fun dn ->
let open Denomination in
(*let to_int64 ts = ts |> Timestamp.to_s |> Option.get in*)
Fmt.pr "rsa_pub: %s@." (Crypto.RsaPublicKey.to_b32 dn.pub);
Fmt.pr "master_sig: %s@." (B32.encode @@ Obj.magic dn.master_sig);
(* amount bin fraction bad? *)
let* () = let* () =
Denomination.verify_denomination_key_validity ~key:v.master_public_key Denomination.verify_denomination_key_validity ~key:v.master_public_key
dn dn