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-11 00:34:30 +01:00
parent 8a4a82bdf7
commit de6405ab8a
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/amount.ml
View file

@ -84,7 +84,8 @@ let pp =
in in
fun ppf { sign; currency; value; fraction } -> fun ppf { sign; currency; value; fraction } ->
(* TODO (* TODO
this depends on the currency's number of fraction digits *) depends on the currency's number of fraction digits
assumes value and fraction are in bounds *)
pf ppf "%a%s:%Ld.%02ld" (Fmt.option pp_sign) sign currency value fraction pf ppf "%a%s:%Ld.%02ld" (Fmt.option pp_sign) sign currency value fraction
let to_string = Fmt.str "%a" pp let to_string = Fmt.str "%a" pp