anchor.diff:          for project in importedProjects do
               yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "ProjectImport"
   
  -        for package in allPackageReferences do
  +        for package in packages do
               yield GenerateNode (package.toString) (package.toString) "Package"
   
  -        for assembly in allAssemblies do
  +        for assembly in assemblies do
               yield GenerateNode (assembly.toString) (assembly.toString) "Assembly"
       }
   
  
positive.code:         XAttribute(NsNone + "Target", target),
          XAttribute(NsNone + "Category", category))
  
  let GraphNodes (projects : Project set) (allProjects : Project set) =
      let importedProjects = Set.difference allProjects projects
      let allPackageReferences = projects |> Seq.map (fun x -> x.PackageReferences)
                                          |> Seq.concat
      let allAssemblies = projects |> Seq.map (fun x -> x.AssemblyReferences)
                                   |> Seq.concat
  
      let repos = allProjects |> Set.map (fun x -> x.Repository)
  
      seq {
          for repo in repos do
  
negative.code:                                      |> Set.unionMany
                                       |> Set.map (fun x -> antho.Projects |> Seq.find (fun y -> y.ProjectGuid = x))
      let repos = allProjects |> Set.map (fun x -> x.Repository)
      let packages = nonExeProjects |> Set.map (fun x -> x.PackageReferences)
                                    |> Set.unionMany
      let assemblies = nonExeProjects |> Set.map (fun x -> x.AssemblyReferences)
                                      |> Set.unionMany
      let xNodes = XElement(NsDgml + "Nodes", GraphNodes nonExeProjects allProjects packages assemblies repos)
      let xLinks = XElement(NsDgml+"Links", GraphLinks nonExeProjects allProjects)
      let xCategories = XElement(NsDgml + "Categories", GraphCategories repos)
      let xProperties = XElement(NsDgml + "Properties", GraphProperties ())
  