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:         XAttribute(NsNone + "Target", target),
          XAttribute(NsNone + "Category", category))
  
  let GraphNodes (projects : Project set) (allProjects : Project set) (packages : PackageId set) (assemblies : AssemblyId set) (repos : RepositoryId set) =
      let importedProjects = Set.difference allProjects projects
  
      seq {
          for repo in repos do
  