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

use correct denomination hash

Browse source
This commit is contained in:
swrup 2026-02-27 23:36:05 +01:00
parent b1de214881
commit b8574ca52d
14 changed files with 142 additions and 61 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
record make_exn
|+ 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)
|> sealr