anchor.diff:          let app = { Anthology.Application.Name = Anthology.ApplicationId.from name
                       Anthology.Application.Publisher = pub
                       Anthology.Application.Projects = projectIds }
  -        let newAntho = { anthology 
  +        let newAntho = { anthology
                            with Applications = anthology.Applications |> Set.add app }
           Graph(newAntho)
   
  
positive.code: 
      member this.Name : string = this.Repository.Name.toString
  
      member this.Builder = 
          let buildableRepo = this.Graph.Anthology.Repositories |> Seq.tryFind (fun x -> x.Repository.Name = this.Repository.Name)
          match buildableRepo with
          | Some repo -> match repo.Builder with
  
negative.code:                                                      |> dict
          applicationMap
  
      member this.ProjectMap : System.Collections.Generic.IDictionary<Anthology.ProjectId, Project> =
          if projectMap |> isNull then
              projectMap <- anthology.Projects |> Seq.map (fun x -> x.ProjectId, { Graph = this; Project = x } )
                                               |> dict
  