anchor.diff:                      let resolvedPackage = kv.Value
                       sprintf "   - %O %O" resolvedPackage.Name resolvedPackage.Version |> addToError
   
  -            match this.GetConflicts() with
  +            let r = defaultArg packageRequirement (Seq.head stillOpen)
  +            match this.GetConflicts(r) with
               | [] -> addToError <| sprintf "  Could not resolve package %O. Unknown resolution error." (Seq.head stillOpen)
               | [c] ->
                   addToError <| sprintf "  Could not resolve package %O:" c.Name
  
positive.code:                     conflictHistory.Add(currentRequirement.Name, 1)
                      true
                  
              let conflicts = conflictStatus.GetConflicts() 
              match conflicts with
              | c::_  ->
                  let selectedVersion = Map.tryFind c.Name filteredVersions
  
negative.code: | Conflict of Map<PackageName,ResolvedPackage> * Set<PackageRequirement> * Set<PackageRequirement> * (PackageName -> SemVerInfo seq)
      with
  
      member this.GetConflicts(packageRequirement) =
          match this with
          | Resolution.Ok(_) -> []
          | Resolution.Conflict(resolved,closed,stillOpen,getVersionF) ->
              closed
              |> Set.union stillOpen
              |> Set.add packageRequirement
              |> Seq.filter (fun x -> x.Name = packageRequirement.Name)
              |> Seq.sortBy (fun x -> x.Parent)
              |> Seq.toList
  
      member this.GetErrorText(?packageRequirement,?showResolvedPackages) =
          match this with
          | Resolution.Ok(_) -> ""
          | Resolution.Conflict(resolved,closed,stillOpen,getVersionF) ->
  