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

Browse source
This commit is contained in:
swrup 2025-11-20 19:04:59 +01:00
parent 48de0732ca
commit 90aa07c440
1 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

30
include/parse_config.ml
View file

@ -246,21 +246,6 @@ module Config = struct
(*Fmt.pr "config file:@\n%a@." Pp_debug.pp_config v;*) (*Fmt.pr "config file:@\n%a@." Pp_debug.pp_config v;*)
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 module Exchange = struct
let get_opt field = get_opt config ~section:"exchange" ~field let get_opt field = get_opt config ~section:"exchange" ~field
let get field = get config ~section:"exchange" ~field let get field = get config ~section:"exchange" ~field
@ -312,4 +297,19 @@ module Config = struct
privacy_dir privacy_dir
privacy_etag *) privacy_etag *)
end 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 end