anchor.diff:  
       Configuration.SaveBranch tag.Branch
       Core.BuildArtifacts.PullReferenceBinaries graph.ArtifactsDir checkoutInfo.Version
  -
  -
  -let Install () =
  -    Core.Package.RestorePackages ()
  -    Core.Conversion.GenerateProjectArtifacts()
  +    Install()
  +
   
   let Init (initInfo : CLI.Commands.InitWorkspace) =
       let wsDir = DirectoryInfo(initInfo.Path)
  
positive.code: 
  
  
  
  let Branch (branchInfo : CLI.Commands.BranchWorkspace) =
      let graph = Configuration.LoadAnthology() |> Graph.from
      let wsDir = Env.GetFolder Env.Folder.Workspace
  
      let switchToBranch (branch : string option) (repo : Repository) =
  
negative.code:         }
  
      match branchInfo.Branch with
      | Some x -> let graph = Configuration.LoadAnthology() |> Graph.from
                  let branch = (x = graph.MasterRepository.Branch) ? (None, Some x)
                  let res1 = switchToBranch branch graph.MasterRepository |> Async.RunSynchronously
  
                  let graph = Configuration.LoadAnthology() |> Graph.from
                  let res2 = graph.Repositories |> Seq.filter (fun x -> x.IsCloned)
                                                |> Threading.ParExec (switchToBranch branch)
  