anchor.diff:  
           let command =
             "git --no-pager -C " + gitDir +
  -          " fetch origin " + depthStr + branch + ":" + branch
  +          " fetch origin " + depthStr + branch.Trim() + ":" + branch.Trim()
   
           do!
             runBash command
  
positive.code: 
      member this.DefaultBranch (gitPath : string) = async {
        let! result = runBash ("git -C " + gitPath + " symbolic-ref HEAD")
        return result.Trim()
      }
  
      member this.CheckoutTo (gitPath : string) (revision : Revision) (installPath : string) = async {
  
negative.code:               (this :> IGit).FetchBranch repository branch <| (List.length revs) + depth
                |> Async.Ignore
                |> Async.StartChild
  
              return (revs, fetchNext)
            })
            |> AsyncSeq.ofSeq
  