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-23 07:24:40 +01:00
parent af355249fc
commit 49667225ea
5 changed files with 64 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src/api.ml
View file

@ -15,7 +15,6 @@ open Crypto
open Signatures
module DenominationHash = Hash.DenominationHash
let encode_exn jsont v = Jsont_bytesrw.encode_string jsont v |> Result.get_ok
let encode jsont v = Jsont_bytesrw.encode_string jsont v
let decode jsont v = Jsont_bytesrw.decode_string jsont v
@ -228,22 +227,22 @@ module ExchangeVersionResponse = struct
|> finish
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= [];
}
let config =
let currency_specification =
let open Config.Currency in
let alt_unit_names =
Parse_config.Alt_unit_names.encode_exn v.alt_unit_names
in
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= [];
}
in
ExchangeVersionResponse.
{
version= protocol_version;