Module As_cmd.Vcs

module Vcs: sig .. end

type t = [ `Git | `Hg ] 

val override_kind : unit -> t option

val set_override_kind : t option -> unit

val override_exec : unit -> string option

val set_override_exec : string option -> unit

val exists : As_path.t -> t -> bool As_cmd.result

val find : As_path.t -> t option As_cmd.result

val get : As_path.t -> t As_cmd.result

val head : ?dirty:bool -> As_path.t -> t -> string As_cmd.result

val describe : ?dirty:bool -> As_path.t -> t -> string As_cmd.result