fmt
This commit is contained in:
parent
724a3d2b68
commit
4930cd3ae3
5 changed files with 38 additions and 7 deletions
|
|
@ -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 }
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue