+

src/config.ml

@@ -40,17 +40,16 @@ module Exchange = struct
   let enable_kyc = get "enable_kyc" |> yes_no
   let terms_etag = get "terms_etag"
   let privacy_etag = get "privacy_etag"
+  let base_url = get "base_url"
+  let shopping_url = get_opt "shopping_url"
+  let open_banking_gateway_url = get_opt "open_banking_gateway_url"
+  let bank_compliance_language = get_opt "bank_compliance_language"
+  let aml_spa_dialect = get_opt "aml_spa_dialect"
+  let toplevel_redirect_url = get_opt "toplevel_redirect_url"
+  let tiny_amount = get_opt "tiny_amount" |> Option.map amount
 
-  (* optional:
-       tiny_amount
-       shopping_url
-       open_banking_gateway_url
-       aml_spa_dialect
-       bank_compliance_language
-       toplevel_redirect_url *)
   (* not implemented or not relevant to MTE:
        let max_requests = get "max_requests" |> int
-       base_url
        aggregator_shard_size
        serve
        unixpath
@@ -105,7 +104,7 @@ module Currency = struct
       fractional_normal_digits= get "fractional_normal_digits" |> int;
       fractional_trailing_zero_digits=
         get "fractional_trailing_zero_digits" |> int;
-      alt_unit_names= get "alt_unit_names" |> Parse_alt_unit_names.parse;
+      alt_unit_names= get "alt_unit_names" |> Alt_unit_names.parse;
     }
 
   let all_currencies = List.map parse_currency currency_sections