anchor.diff:                          | _ -> Set.empty
       let fbPackages = GetFullBuildPackages xprj
       let paketPackages = GetPaketPackages xprj
  -    let packages = Set.union fbPackages nugetPackages
  +    let packages = nugetPackages |> Set.union fbPackages 
  +                                 |> Set.union paketPackages
       let pkgRefs = packages |> Set.map (fun x -> x.Id)
   
       let ext2projType = Map [ (".csproj", ParseGuid "FAE04EC0-301F-11D3-BF4B-00C04F79EFBC")
  
positive.code:     fbPkgs
  
  let GetPaketPackages (prjDoc : XDocument)  =
      let paketPkgs = prjDoc.Descendants(NsMsBuild + "Import")
                      |> Seq.filter IsPaketReference
                      |> Seq.map GetPackageFromPaketRefence
                      |> Set
      paketPkgs
  
  
negative.code:     if m.Success then Some (m.Groups.["Package"].Value)
      else None
  
  let GetPackageFromPaketReference (xel : XElement) =
      let xhintPath = xel.Descendants(NsMsBuild + "HintPath") |> Seq.head
      let hintPath = !> xhintPath : string
      match hintPath with
      | MatchPackage pkg -> { Id = PackageId.Bind pkg
                              Version = PackageVersion String.Empty }
      | _ -> failwith "Failed to find package"
  
  let GetFullBuildPackages (prjDoc : XDocument)  =
      let fbPkgs = prjDoc.Descendants(NsMsBuild + "Import")
                   |> Seq.map (fun x -> !> x.Attribute(XNamespace.None + "Project") : string)
                   |> Seq.filter (fun x -> x.StartsWith(MSBUILD_PACKAGE_FOLDER))
                   |> Seq.map ParseFullBuildPackage
  