anchor.diff:  
   
   
  +let Branch (branchInfo : CLI.Commands.BranchWorkspace) =
  +    match branchInfo.Branch with
  +    | Some x -> Configuration.SaveBranch x
  +    | None -> let name = Configuration.LoadBranch()
  +              printfn "%s" name
  +
  +
   
   let Create (createInfo : CLI.Commands.SetupWorkspace) =
       let wsDir = DirectoryInfo(createInfo.Path)
  
positive.code:         let publishSource = installDir |> GetFile Env.FULLBUILD_TARGETS
          let publishTarget = confDir |> GetFile Env.FULLBUILD_TARGETS
          publishSource.CopyTo(publishTarget.FullName) |> ignore
      finally
          Environment.CurrentDirectory <- currDir
  
  
negative.code: 
      // update binaries with observable baseline
      Core.BuildArtifacts.PullReferenceBinaries graph checkoutInfo.Version
  
  
  let Init (initInfo : CLI.Commands.InitWorkspace) =
  