diff --git a/include/parse_config.ml b/include/parse_config.ml index 25016c35..fb50fcad 100644 --- a/include/parse_config.ml +++ b/include/parse_config.ml @@ -246,21 +246,6 @@ module Config = struct (*Fmt.pr "config file:@\n%a@." Pp_debug.pp_config v;*) v - module Exchangedb = struct - let get field = get config ~section:"exchangedb" ~field - - (* - *) - let idle_reserve_expiration_time = - get "idle_reserve_expiration_time" |> duration - - let legal_reserve_expiration_time = - get "legal_reserve_expiration_time" |> duration - - let aggregator_shift = get "aggregator_shift" |> duration - let max_aml_program_runtime = get "max_aml_program_runtime" |> duration - let default_purse_limit = get "default_purse_limit" |> int - end - module Exchange = struct let get_opt field = get_opt config ~section:"exchange" ~field let get field = get config ~section:"exchange" ~field @@ -312,4 +297,19 @@ module Config = struct privacy_dir privacy_etag *) end + + module Exchangedb = struct + let get field = get config ~section:"exchangedb" ~field + + (* - *) + let idle_reserve_expiration_time = + get "idle_reserve_expiration_time" |> duration + + let legal_reserve_expiration_time = + get "legal_reserve_expiration_time" |> duration + + let aggregator_shift = get "aggregator_shift" |> duration + let max_aml_program_runtime = get "max_aml_program_runtime" |> duration + let default_purse_limit = get "default_purse_limit" |> int + end end