anchor.diff:                  tracefn "Response from %s:" firstUrl
                   tracefn ""
                   tracefn "%s" raw
  -            match parseODataListDetails(firstUrl,nugetURL,packageName,version,raw) with
  +            let doc = getXmlDoc firstUrl raw
  +            match parseODataListDetails(firstUrl,nugetURL,packageName,version,doc) with
               | EmptyResult ->
                   if verbose then tracefn "No results, trying again with Version instead of NormalizedVersion."
                   return! fallback()
  
positive.code:                         tracefn "Response from %s:" url
                          tracefn ""
                          tracefn "%s" raw
                      match parseODataListDetails(url,nugetURL,packageName,version,raw) with
                      | EmptyResult ->
                          if verbose then tracefn "No results, trying again with NormalizedVersion as Version instead of Version."
                          return! fallback2()
  
negative.code: 
  
  // parse search results.
  let parseODataListDetails (url,nugetURL,packageName:PackageName,version:SemVerInfo,doc) : ODataSearchResult =
      let feedNode =
          match doc |> getNode "feed" with
          | Some node -> node
          | None ->
              failwithf "Could not find 'entry' node for package %O %O" packageName version
      match feedNode |> getNodes "entry" with
      | [] ->
          // When no entry node is found our search did not yield anything.
  