2025-10-18 20:28:38 +02:00 · 2025-10-18 20:28:38 +02:00 · 985a87ebfa
commit 985a87ebfa
parent 1674e338ac
4 changed files with 20 additions and 11 deletions
--- a/src/amount.ml
+++ b/src/amount.ml
@ -46,8 +46,10 @@ let to_string =
    in
    let pp_currency ppf = function `Eur -> string ppf "EUR" in
    fun ppf { sign; currency; value; fraction } ->
-      pf ppf "%a%a:%Ld.%Ld" (Fmt.option pp_sign) sign pp_currency currency value
-        fraction
+      (* TODO amount
+         use config *)
+      pf ppf "%a%a:%Ld.%02Ld" (Fmt.option pp_sign) sign pp_currency currency
+        value fraction
  in
  Fmt.str "%a" pp