Command_server (hg_lib.hg_lib.open.Open_hg_lib.Command

type t

a connection to an hg command server

module Ssh : sig ... end

val create : 
  ?env:Async.Process.env ->
  ?hg_binary:string ->
  ?config:(string * string) list ->
  accepted_encodings:[ `Ascii | `Utf8 ] list ->
  Ssh.t option ->
  t Core.Or_error.t Async.Deferred.t

create addr starts an hg command server at that location

val destroy : t -> unit Async.Deferred.t

destroy t closes stdin on the hg process and waits for it to exit

val run_command : 
  t ->
  cwd:string ->
  string list ->
  Async.Process.Output.t Core.Or_error.t Async.Deferred.t

run_command t ~cwd args uses t to run "hg $args" in cwd