anchor.diff:  let GitLastCommit (repoDir : DirectoryInfo) (relativeFile : string) =
       let args = sprintf @"log -1 --format=%%H %s" relativeFile
       ExecGetOutput "git" args repoDir Map.empty |> GetOutput |> Seq.head
  -
  -//let GitLogs (repoDir : DirectoryInfo) =
  -//    let args = sprintf @"log --format=%%H"
  -//    checkedExecReadLine "dummy" "git" args repoDir Map.empty
   
   let GitIgnore (repoDir : DirectoryInfo) =
       let dstGitIgnore = repoDir |> IoHelpers.GetFile ".gitignore"
  
positive.code:     let args = sprintf @"clone %s --quiet %s %s %A" url bronly depth target.FullName
  
      let currDir = IoHelpers.CurrentFolder ()
      Exec "git" args currDir Map.empty
  
  let GerritClone (repo : Repository) (target : DirectoryInfo) (url : string) (shallow : bool) =
      let res = GitClone repo target url shallow
  
negative.code: let GitPull (repoDir : DirectoryInfo) (rebase : bool) =
      let dorebase = if rebase then "--rebase" else "--ff-only"
      let args = sprintf "pull %s" dorebase
      ExecGetOutput "git" args repoDir Map.empty
  
  let GitTip (repoDir : DirectoryInfo) =
      let args = @"log -1 --format=%H"
  