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

use scanf

Browse source
This commit is contained in:
swrup 2026-02-23 06:30:39 +01:00
parent 5e9426267a
commit d7ccd69350
3 changed files with 39 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/amount.ml
View file

@ -84,9 +84,8 @@ let pp =
in
fun ppf { sign; currency; value; fraction } ->
(* TODO
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
depends on the currency's number of fraction digits *)
pf ppf "%a%s:%Lu.%02lu" (Fmt.option pp_sign) sign currency value fraction
let to_string = Fmt.str "%a" pp