(* hardcoded config for now *)

let amount s = Amount.of_string s |> Result.get_ok

module Exchange = struct
  let currency = "EUR"
  let currency_round_unit = amount "EUR:0.01"
  let db = "postgres"
  let attribute_encryption_key = "uhuhg" (* high-entropy nonce. *)
  let port = 3696
  let master_public_key = "uhuhg"
  let stefan_abs = amount "EUR:0.00"
  let stefan_log = amount "EUR:0.00"
  let stefan_lin = 0.0
  let signkey_legal_duration = 99999999
  let max_keys_caching = 9999999
  let max_requests = 99999999
  let terms_dir = Fpath.(v "terms")
  let terms_etag = "0" |> Headers_lib.Etag.of_crockford32 |> Result.get_ok
  let privacy_dir = Fpath.(v "privacy")
  let privacy_etag = "0" |> Headers_lib.Etag.of_crockford32 |> Result.get_ok
  let enable_kyc = `NO
end

type currency = {
  enabled: [ `YES | `NO ];
  code: string;
  name: string;
  fractional_input_digits: int;
  fractional_normal_digits: int;
  fractional_trailing_zero_digits: int;
  alt_unit_names: (int * string) list;
}

let currency_eur =
  {
    enabled= `NO;
    code= "EUR";
    name= "euro";
    fractional_input_digits= 2;
    fractional_normal_digits= 2;
    fractional_trailing_zero_digits= 2;
    alt_unit_names= [ (0, "E"); (3, "kE") ];
  }

module Secmod_rsa = struct
  let lookahead_sign = 9999999
  let overlap_duration = 9999999
  let sm_priv_key = Fpath.(v "rsa_key.priv")
  let key_dir = Fpath.(v "rsa")
end

module Secmod_eddsa = struct
  let lookahead_sign = 9999999
  let overlap_duration = 9999999
  let sm_priv_key = Fpath.(v "eddsa_key.priv")
  let key_dir = Fpath.(v "eddsa")
end

type coin = {
  value: Amount.t;
  duration_withdraw: int;
  duration_spend: int;
  duration_legal: int;
  fee_withdraw: Amount.t;
  fee_deposit: Amount.t;
  fee_refresh: Amount.t;
  fee_refund: Amount.t;
  cipher: [ (* `CS |*) `RSA ];
  rsa_keysize: int option (*only if `RSA *);
  age_restricted: [ (*`YES|*) `NO ];
}

let coin_kudo =
  {
    value= amount "EUR:0.01";
    duration_withdraw= 999999;
    duration_spend= 999999;
    duration_legal= 999999;
    fee_withdraw= amount "EUR:0.00";
    fee_deposit= amount "EUR:0.00";
    fee_refresh= amount "EUR:0.00";
    fee_refund= amount "EUR:0.00";
    cipher= `RSA;
    rsa_keysize= Some 2048;
    age_restricted= `NO;
  }