sig   module Ssh :     sig       type t = {         address : string;         port : int option;         user : string option;         add_ssh_options : string list;       }       val to_yojson : Ketrew_pure.Host.Ssh.t -> Yojson.Safe.json       val of_yojson :         Yojson.Safe.json ->         Ketrew_pure.Host.Ssh.t Ppx_deriving_yojson_runtime.error_or       val configure_ssh_batch_option :         [ `Custom of string | `Dropbear | `Openssh ] -> unit       val ssh_batch_option : Ketrew_pure.Host.Ssh.t -> string     end   type default_shell   val default_shell_to_yojson :     Ketrew_pure.Host.default_shell -> Yojson.Safe.json   val default_shell_of_yojson :     Yojson.Safe.json ->     Ketrew_pure.Host.default_shell Ppx_deriving_yojson_runtime.error_or   type t   val to_yojson : Ketrew_pure.Host.t -> Yojson.Safe.json   val of_yojson :     Yojson.Safe.json ->     Ketrew_pure.Host.t Ppx_deriving_yojson_runtime.error_or   val default_shell :     ?binary:string ->     ?options:string list ->     ?command_option:string -> string -> Ketrew_pure.Host.default_shell   val localhost :     ?execution_timeout:Internal_pervasives.Time.t ->     ?default_shell:Ketrew_pure.Host.default_shell ->     ?playground:Path.t -> ?name:string -> unit -> Ketrew_pure.Host.t   val tmp_on_localhost : Ketrew_pure.Host.t   val ssh :     ?execution_timeout:Internal_pervasives.Time.t ->     ?add_ssh_options:string list ->     ?default_shell:Ketrew_pure.Host.default_shell ->     ?playground:Path.t ->     ?port:int -> ?user:string -> ?name:string -> string -> Ketrew_pure.Host.t   val shell_of_default_shell : Ketrew_pure.Host.t -> string -> string list   val of_uri :     Internal_pervasives.Uri.t ->     (Ketrew_pure.Host.t, [> `Host_uri_parsing_error of string * string ])     Pvem.Result.t   val of_string :     string ->     (Ketrew_pure.Host.t, [> `Host_uri_parsing_error of string * string ])     Pvem.Result.t   val to_uri : Ketrew_pure.Host.t -> Internal_pervasives.Uri.t   val to_string_hum : Ketrew_pure.Host.t -> string   val log : Ketrew_pure.Host.t -> Internal_pervasives.Log.t   val markup : Ketrew_pure.Host.t -> Internal_pervasives.Display_markup.t   val execution_timeout :     Ketrew_pure.Host.t -> Internal_pervasives.Time.t option   val connection :     Ketrew_pure.Host.t -> [ `Localhost | `Ssh of Ketrew_pure.Host.Ssh.t ]   val playground : Ketrew_pure.Host.t -> Path.t option end