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

Browse source
This commit is contained in:
swrup 2026-02-28 03:32:55 +01:00
parent f7cb91615d
commit c5a2562a7b
3 changed files with 7 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
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