anchor.diff:                  XAttribute(NsNone + "Label", repo.toString),
                   XAttribute(NsNone + "Group", "Expanded"))
   
  -        yield XElement(NsDgml + "Node",
  +        if packages.Count > 0 then
  +            yield XElement(NsDgml + "Node",
                   XAttribute(NsNone + "Id", "Packages"),
                   XAttribute(NsNone + "Label", "Packages"),
                   XAttribute(NsNone + "Group", "Expanded"))
   
  -        yield XElement(NsDgml + "Node",
  +        if assemblies.Count > 0 then
  +            yield XElement(NsDgml + "Node",
                   XAttribute(NsNone + "Id", "Assemblies"),
                   XAttribute(NsNone + "Label", "Assemblies"),
                   XAttribute(NsNone + "Group", "Expanded"))
  
positive.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 xNodes = XElement(NsDgml + "Nodes", GraphNodes nonExeProjects allProjects)
      let xLinks = XElement(NsDgml+"Links", GraphLinks nonExeProjects allProjects)
      let xCategories = XElement(NsDgml + "Categories", GraphCategories repos)
      let xProperties = XElement(NsDgml + "Properties", GraphProperties ())
  
negative.code:         for project in importedProjects do
              yield GenerateNode (project.ProjectGuid.toString) (project.Output.toString) "ProjectImport"
  
          for package in packages do
              yield GenerateNode (package.toString) (package.toString) "Package"
  
          for assembly in assemblies do
              yield GenerateNode (assembly.toString) (assembly.toString) "Assembly"
      }
  
  