struct
let _configuration_ssh_batch_option = ref ""
let configure_ssh_batch_option spec =
let op =
match spec with
| `Openssh -> "-oBatchMode=yes"
| `Dropbear -> "-s"
| `Custom s -> s
in
_configuration_ssh_batch_option := op
let () = configure_ssh_batch_option `Openssh
type t ={
address: string;
port: int option;
user: string option;
add_ssh_options: string list;
} [@@deriving yojson]
let ssh_batch_option _ = !_configuration_ssh_batch_option
(* in the future `_` should really be `t` *)
end