From de6405ab8a41e422477e42cb1a198609db4bcbc1 Mon Sep 17 00:00:00 2001 From: swrup Date: Wed, 11 Feb 2026 00:34:30 +0100 Subject: [PATCH] --- src/amount.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/amount.ml b/src/amount.ml index 9c10437c..c5e06082 100644 --- a/src/amount.ml +++ b/src/amount.ml @@ -84,7 +84,8 @@ let pp = in fun ppf { sign; currency; value; fraction } -> (* 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 let to_string = Fmt.str "%a" pp