anchor.diff:                  return! queryPackagesProtocol packageName
               else
                   return result
  -        with _ -> 
  +        with _ ->
               try
                   return! queryPackagesProtocol packageName
               with _ ->
  
positive.code:             return parseODataDetails(url,nugetURL,packageName,version,raw)
      }
  
  let urlSimilarToTfsOrVsts url = 
      String.containsIgnoreCase "visualstudio.com" url || (String.containsIgnoreCase "/_packaging/" url && String.containsIgnoreCase "/nuget/v" url)
  
  /// Gets package details from NuGet via OData
  let getDetailsFromNuGetViaOData auth nugetURL (packageName:PackageName) (version:SemVerInfo) =
      let queryPackagesProtocol (packageName:PackageName) = 
          async {
              let url = sprintf "%s/Packages(Id='%O',Version='%O')" nugetURL packageName version
              let! response = safeGetFromUrl(auth,url,acceptXml)
  
negative.code:                 Directory.Move(sub.FullName, newName)
              with
              | exn -> failwithf "Could not move %s to %s%sMessage: %s" sub.FullName newName Environment.NewLine exn.Message
  
              cleanup (DirectoryInfo newName)
          else
              cleanup sub
  