This commit is contained in:
Swrup 2025-10-03 18:35:21 +02:00
parent 724a3d2b68
commit 4930cd3ae3
5 changed files with 38 additions and 7 deletions

View file

@ -26,7 +26,11 @@ let currency_to_string = function `Eur -> "EUR"
(* Values that represent an amount are in the usual amount syntax: CURRENCY:VALUE.FRACTION,
e.g. EUR:1.50. The FRACTION portion may extend up to 8 places. *)
type value = { currency: [ `Eur ]; value: int; fraction: int }
type value = {
currency: [ `Eur ]
; value: int
; fraction: int
}
let currency_round_unit = { currency= `Eur; value= 0; fraction= 1 }