anchor.diff:      repoDir |> FindKnownProjects 
               |> Seq.map (parser repoDir)
   
  -let private ParseWorkspaceProjects (parser) (wsDir : DirectoryInfo) (repos : string seq) : ProjectParsing.ProjectDescriptor seq = 
  +let private ParseWorkspaceProjects (parser) (wsDir : DirectoryInfo) (repos : string seq) = 
       repos |> Seq.map (GetSubDirectory wsDir) 
             |> Seq.filter (fun x -> x.Exists) 
             |> Seq.map (ParseRepositoryProjects parser) 
             |> Seq.concat
  -
   
   let Create(path : string) = 
       let wsDir = DirectoryInfo(path)
  
positive.code:     // add project refereces
      let afterItemGroup = cproj.Descendants(NsMsBuild + "ItemGroup").First()
      for projectReference in project.ProjectReferences do
          let importFile = sprintf "%s%s.targets" MSBUILD_PROJECT_FOLDER (projectReference.ToString("D"))
          let import = XElement (NsMsBuild + "Import",
                          XAttribute (NsNone + "Project", importFile))
          afterItemGroup.AddAfterSelf (import)
      cproj
  
  let ConvertProjects (antho : Anthology) =
      let wsDir = WorkspaceFolder ()
      for project in antho.Projects do
          let repoDir = project.Repository |> GetSubDirectory wsDir
          let projFile = project.RelativeProjectFile |> GetFile repoDir
          printfn "Converting project %A" projFile.FullName
          let xproj = XDocument.Load (projFile.FullName)
          let convxproj = ConvertProject xproj project
          convxproj.Save (projFile.FullName)
  
  let Convert () = 
      let antho = LoadAnthology ()
      GenerateProjects antho.Projects
      ConvertProjects antho
  
negative.code:     // This is the import targets that will be Import'ed inside a proj file.
      // First we include full-build view configuration (this is done to avoid adding an extra import inside proj)
      // Then we end up either importing output assembly or project depending on view configuration
      XDocument (NsMsBuild + "Project", 
          XElement (NsMsBuild+"Import",
              XAttribute (NsNone + "Project", "$(SolutionDir)/.full-build/views/$(SolutionName).targets"),
              XAttribute (NsNone + "Condition", "'$(FullBuild_Config)' == ''")),
  