+ wip /keys

This commit is contained in:
swrup 2026-01-19 20:54:39 +01:00
parent 7b8edd05e9
commit 34e89a22bf
6 changed files with 139 additions and 8 deletions

View file

@ -20,9 +20,13 @@ module Exchange = struct
let port = get "port" |> int
let bind_to = get "bind_to"
let master_public_key = get "master_public_key" |> ed25519
(* TODO Defaults to 0.0 if not specified. *)
let stefan_abs = get "stefan_abs" |> amount
let stefan_log = get "stefan_log" |> amount
let stefan_lin = get_opt "stefan_lin" |> Option.map float
let stefan_lin =
get_opt "stefan_lin" |> Option.map float |> Option.value ~default:0.0
let aggregator_idle_sleep_interval =
get "aggregator_idle_sleep_interval" |> duration