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:     type Model =
          | Workspace of Projects : Model list
          | ReferenceList of References: Model list * projectPath : string
          | FileList of Files: Model list * projectPath : string
          | ProjectReferencesList of Projects : Model list * ProjectPath : string
          | Project of path: string * name: string * FileList: Model  * ProjectReferencesList : Model  * ReferenceList: Model
          | Folder of name : string * Files : Model list
          | File of path: string * name: string * projectPath : string
          | Reference of path: string * name: string * projectPath : string
  
negative.code:         | Project (_, name,_, _,_) -> name
          | ReferenceList _ -> "References"
          | ProjectReferencesList (refs, _) -> "Project References"
          | Folder (n, _) -> n
          | File (_, name, _) -> name
          | Reference (_, name, _) ->
  