anchor.diff:      }
   
       member this.DefaultBranch (gitPath : string) = async {
  -      let! result = runBash ("git --git-dir=" + gitPath + " symbolic-ref HEAD")
  +      let! result = runBash ("git -C " + gitPath + " symbolic-ref HEAD")
         return result.Trim()
       }
   
  
positive.code:     member this.FetchFile (repository : String) (commit : Revision) (path : String) = async {
        let gitDir = repository
        let command =
          "git --git-dir=" + gitDir +
          " show " + commit + ":" + path
        return! runBash(command)
      }
  
negative.code:     member this.FetchBranch (repository : String) (branch : Branch) = async {
        let gitDir = repository
        let command =
          "git --no-pager -C " + gitDir +
          " fetch origin " + branch + ":" + branch
        do!
          runBash(command)
  