Current_git.Localval v : Fpath.t -> tv path is the local Git repository at path.
val head : t -> [ `Commit of Commit_id.t | `Ref of string ] Current.thead is the current branch ref (e.g. "/refs/heads/master").
head_commit is the commit at the head of the current branch.
commit_of_ref t gref evaluates to the commit at the head of gref. e.g. commit_of_ref t "/refs/heads/master"
val repo : t -> Fpath.t