anchor.diff:                  knownConflicts.Add key |> ignore
                   let reportThatResolverIsTakingLongerThanExpected = not isNewConflict && DateTime.Now - !lastConflictReported > TimeSpan.FromSeconds 10.
                   if verbose then
  -                    tracefn "%s" <| conflictStatus.GetErrorText(false)
  +                    tracefn "%s" <| conflictStatus.GetErrorText(currentRequirement,false)
                       tracefn "    ==> Trying different resolution."
                   if reportThatResolverIsTakingLongerThanExpected then
  -                    traceWarnfn "%s" <| conflictStatus.GetErrorText(false)
  +                    traceWarnfn "%s" <| conflictStatus.GetErrorText(currentRequirement,false)
                       traceWarn "The process is taking longer than expected."
                       traceWarn "Paket may still find a valid resolution, but this might take a while."
                       lastConflictReported := DateTime.Now
  
positive.code: | Conflict of Map<PackageName,ResolvedPackage> * Set<PackageRequirement> * Set<PackageRequirement> * (PackageName -> SemVerInfo seq)
      with
  
      member this.GetConflicts() =
          match this with
          | Resolution.Ok(_) -> []
          | Resolution.Conflict(resolved,closed,stillOpen,getVersionF) ->
              let r = Seq.head stillOpen
              closed
              |> Set.union stillOpen
              |> Set.add r
              |> Seq.filter (fun x -> x.Name = r.Name)
              |> Seq.sortBy (fun x -> x.Parent)
              |> Seq.toList
  
      member this.GetErrorText(?showResolvedPackages) =
          match this with
          | Resolution.Ok(_) -> ""
          | Resolution.Conflict(resolved,closed,stillOpen,getVersionF) ->
  
negative.code:                     conflictHistory.Add(currentRequirement.Name, 1)
                      true
                  
              let conflicts = conflictStatus.GetConflicts(currentRequirement) 
              match conflicts with
              | c::_  ->
                  let selectedVersion = Map.tryFind c.Name filteredVersions
  