anchor.diff:                      else verbosefn "  - custom nodes for %s in %s ==> skipping" fileItem.Include this.FileName
                   | None  ->
                       let firstNode = fileItemsInSameDir |> Seq.head
  -                    firstNode.ParentNode.InsertBefore(paketNode, firstNode) |> ignore
  +                    firstNode.ParentNode.InsertBefore(libReferenceNode, firstNode) |> ignore
           
           this.DeleteIfEmpty("PropertyGroup")
           this.DeleteIfEmpty("ItemGroup")
  
positive.code:         for node in nodesToDelete do
              node.ParentNode.RemoveChild(node) |> ignore
  
      member this.createFileItemNode fileItem =
          this.CreateNode(fileItem.BuildAction)
          |> addAttribute "Include" fileItem.Include
          |> addChild (this.CreateNode("Paket","True"))
          |> (fun n -> match fileItem.Link with
                       | Some link -> addChild (this.CreateNode("Link" ,link.Replace("\\","/"))) n
                       | _ -> n)
  
      member this.UpdateFileItems(fileItems : FileItem list, hard) = 
          this.DeletePaketNodes("Compile")
          this.DeletePaketNodes("Content")
  
negative.code: 
              if fileItemsInSameDir |> Seq.isEmpty 
              then 
                  newItemGroups.[fileItem.BuildAction].PrependChild(libReferenceNode) |> ignore
              else
                  let existingNode = fileItemsInSameDir 
                                     |> Seq.tryFind (fun n -> n.Attributes.["Include"].Value = fileItem.Include)
  