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

Browse source
This commit is contained in:
swrup 2026-02-27 22:05:47 +01:00
parent 5c39b5335b
commit 1ba639ecd8
4 changed files with 45 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/api.ml
View file

@ -165,7 +165,7 @@ module CurrencySpecification = struct
num_fractional_input_digits: int;
num_fractional_normal_digits: int;
num_fractional_trailing_zero_digits: int;
alt_unit_names: string;
alt_unit_names: Config.Currency.Alt_unit_names.t;
common_amounts: Amount.t list;
}
@ -197,7 +197,8 @@ module CurrencySpecification = struct
~enc:num_fractional_normal_digits
|> mem "num_fractional_trailing_zero_digits" Jsont.int
~enc:num_fractional_trailing_zero_digits
|> mem "alt_unit_names" Jsont.string ~enc:alt_unit_names
|> mem "alt_unit_names" Config.Currency.Alt_unit_names.jsont
~enc:alt_unit_names
|> mem "common_amounts" (Jsont.list Amount.jsont) ~enc:common_amounts
|> finish
end
@ -255,18 +256,15 @@ end
let currency_specification =
let open Config.Currency in
match Parse_config.Alt_unit_names.encode v.alt_unit_names with
| Error e -> Fmt.failwith "json encoding error on alt_unit_names: %s." e
| Ok alt_unit_names ->
CurrencySpecification.
{
name= v.name;
num_fractional_input_digits= v.fractional_input_digits;
num_fractional_normal_digits= v.fractional_normal_digits;
num_fractional_trailing_zero_digits= v.fractional_trailing_zero_digits;
alt_unit_names;
common_amounts= [];
}
CurrencySpecification.
{
name= v.name;
num_fractional_input_digits= v.fractional_input_digits;
num_fractional_normal_digits= v.fractional_normal_digits;
num_fractional_trailing_zero_digits= v.fractional_trailing_zero_digits;
alt_unit_names= Config.Currency.v.alt_unit_names;
common_amounts= [];
}
let config =
ExchangeVersionResponse.