anchor.diff:      member this.FetchBranch (repository : String) (branch : Branch) = async {
         let gitDir = repository
         let command =
  -        "git --no-pager --git-dir=" + gitDir +
  +        "git --no-pager -C " + gitDir +
           " fetch origin " + branch + ":" + branch
         do!
           runBash(command)
  
positive.code: 
      member this.Unshallow (gitDir : string) = async {
        do!
          runBash ("git --git-dir=" + gitDir + " fetch --unshallow || true; git --git-dir=" + gitDir + " fetch origin '+refs/heads/*:refs/heads/*' '+refs/tags/*:refs/tags/*'")
          |> Async.Ignore
      }
  
      member this.UpdateRefs (gitDir : string) = async {
        do!
          runBash ("git --git-dir=" + gitDir + " fetch origin '+refs/heads/*:refs/heads/*' '+refs/tags/*:refs/tags/*'")
          |> Async.Ignore
      }
  
  
negative.code:   member this.LocalTags (repository : String) = async {
      let gitDir = repository
      let command =
        "--no-pager -C " + gitDir +
        " tag"
      let! output = runBash(command)
  
  