anchor.diff:                  Vcs.VcsPull wsDir repo
   
       if bin then
  -        let baseline = Configuration.LoadBaseline ()
  -        let hash = baseline.Bookmarks |> Seq.find (fun x -> x.Repository = antho.MasterRepository.Name)
  -        let artifactDir = antho.Artifacts |> DirectoryInfo
  -        DisplayHighlight (sprintf "bin %s" hash.Version.toString)
  -        updateMasterBinaries hash artifactDir
  +        updateMasterBinaries ()
  +
  +
  +let Init (path : string) (uri : RepositoryUrl) = 
  +    let wsDir = DirectoryInfo(path)
  +    wsDir.Create()
  +    if IsWorkspaceFolder wsDir then 
  +        printf "[WARNING] Workspace already exists - skipping"
  +    else
  +        let vcsType = Vcs.VcsDetermineType uri
  +        let repo = { Name = RepositoryId.from Env.MASTER_REPO; Url = uri; Vcs=vcsType}
  +        VcsCloneRepo wsDir true repo
  +
  +    updateMasterBinaries ()
   
   
   let Exec cmd =
  
positive.code:                  reraise ()
  
  
  let updateMasterBinaries hash artifactDir =
      let binDir = Env.GetFolder Env.BinOutput
      let versionDir = artifactDir |> GetSubDirectory (hash.Version.toString)
      let binSourceDir = versionDir |> GetSubDirectory Env.MSBUILD_BIN_OUTPUT
      IoHelpers.CopyFolder binSourceDir binDir false
  
  
  let Checkout (version : BookmarkVersion) =
  
negative.code: 
  
  
  let Create (path : string) (uri : RepositoryUrl) (bin : string) = 
      let wsDir = DirectoryInfo(path)
      wsDir.Create()
  