anchor.diff:      (chooseVcs wsDir vcsType repo gitPush hgPush)
   
   let VcsClean (wsDir : DirectoryInfo) (vcsType : VcsType) repo =
  -    (chooseVcs wsDir vcsType repo gitClean hgClean)
  +    (chooseVcs wsDir vcsType repo gitClean hgClean) repo
  
positive.code: 
  open Anthology
  open System.IO
  
  let private checkErrorCode err =
      if err <> 0 then failwithf "Process failed with error %d" err
  
negative.code:     res
  
  
  let private gitClean (repoDir : DirectoryInfo) (repo : Repository) =
      let br = match repo.Branch with
               | Some x -> x.toString
               | None -> "master"
  
      DisplayHighlight "Resetting branch"
      checkedExec "git" "reset --hard" repoDir
  
      DisplayHighlight "Cleaning branch"
      checkedExec "git" "clean -fxd" repoDir
  
      DisplayHighlight (sprintf "Checking out %s" br)
      checkedExec "git" (sprintf "checkout %s" br) repoDir
  
  let private hgClean (repoDir : DirectoryInfo) (repo : Repository) =
      checkedExec "hg" "purge" repoDir
  
  
  