anchor.diff:          | ReferenceList _ -> "References"
           | ProjectReferencesList refs -> "Project References"
           | FileList _ -> "Files"
  +        | Folder (n, _) -> n
           | File (_, name, _) -> name
           | Reference (_, name, _) -> name
           | ProjectReference (_, name, _) -> name
  
positive.code:             | ReferenceList refs -> refs
              | ProjectReferencesList refs -> refs
              | FileList files -> files
              | File _ -> []
              | Reference _ -> []
              | ProjectReference _ -> []
  
negative.code:     let getProjectModel proj =
          let projects = Project.getLoaded ()
  
          let files =
              proj.Files
              |> List.map ( fun p ->
                  let n = path.relative(path.dirname proj.Project, p)
  
                  File(p, n, proj.Project))
              |> FileList
          let refs = proj.References |> List.map (fun p -> Reference(p, path.basename p, proj.Project)) |> ReferenceList
          let projs = proj.References |> List.choose (fun r -> projects |> Seq.tryFind (fun pr -> pr.Output = r)) |> List.map (fun p -> ProjectReference(p.Project, path.basename(p.Project, ".fsproj"), proj.Project))  |> ProjectReferencesList
          let name = path.basename(proj.Project, ".fsproj")
  