anchor.diff:          }
   
       match branchInfo.Branch with
  -    | Some x -> let branch = (x = graph.MasterRepository.Branch) ? (None, Some x)
  +    | 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)
  
positive.code: 
                  Configuration.SaveBranch x
                  pullMatchingBinaries ()
      | None -> let name = Configuration.LoadBranch()
                printfn "%s" name
  
  
negative.code: 
  
  
  let Install () =
      Core.Package.RestorePackages ()
      Core.Conversion.GenerateProjectArtifacts()
  
  
  let Branch (branchInfo : CLI.Commands.BranchWorkspace) =
      let wsDir = Env.GetFolder Env.Folder.Workspace
  
      let switchToBranch (branch : string option) (repo : Repository) =
  