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