anchor.diff:          //         File(p, n, proj.Project))
   
   
  -        let fls =  FileList(files, proj.Project)
           let refs = proj.References |> List.map (fun p -> Reference(p, path.basename p, proj.Project)) |> fun n -> ReferenceList(n, proj.Project)
           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)) |> fun n -> ProjectReferencesList(n, proj.Project)
           let name = path.basename(proj.Project, ".fsproj")
  -        Project(proj.Project, name,fls, projs, refs)
  +        Project(proj.Project, name,files, projs, refs)
   
       let private getModel() =
           let projects = Project.getLoaded ()
  
positive.code:                 let context =
                      match node with
                      | File _  -> Some "ionide.projectExplorer.file"
                      | FileList _  -> Some "ionide.projectExplorer.fileList"
                      | ProjectReferencesList _  -> Some "ionide.projectExplorer.projectRefList"
                      | ReferenceList _  -> Some "ionide.projectExplorer.referencesList"
                      | Project _  -> Some "ionide.projectExplorer.project"
  
negative.code:                 let collaps =
                      match node with
                      | File _ | Reference _ | ProjectReference _ -> None
                      | Workspace _ | Project _ -> Some 2
                      | _ ->  Some 1
                  ti.collapsibleState <- collaps
                  let command =
  