anchor.diff:              //| _ -> (tracefn "   Failed to satisfy %O" currentRequirement)
               false else
           flags.FirstTrial || Set.isEmpty conflictState.Conflicts
  -        
   
       let rec step (stage:Stage) (stackpack:StackPack) compatibleVersions (flags:StepFlags) =
   
  
positive.code:                 tcs.TrySetResult (Some work) |> ignore
              tcs.Task
          )
          
  module ResolverRequestQueue =
      open System.Threading
  
      let Create() = { DynamicQueue = new ResizeArray<RequestWork>(); Lock = new obj(); WaitingWorker = new ResizeArray<_>() }
      let addWork prio (f: CancellationToken -> System.Threading.Tasks.Task<'a>) ({ DynamicQueue = queue } as q) =
          let tcs = new TaskCompletionSource<_>()
          let work =
              { StartWork = (fun tok ->
                  let t =
                      try
                          f tok
                      with e -> 
                          //Task.FromException (e)
                          let tcs = new TaskCompletionSource<_>()
                          tcs.SetException e
                          tcs.Task
                  
                  t.ContinueWith(fun (t:System.Threading.Tasks.Task<'a>) -> 
                      if t.IsCanceled then
                          tcs.SetException(new TaskCanceledException(t))
                      elif t.IsFaulted then
                          tcs.SetException(t.Exception)
                      else tcs.SetResult (t.Result)))
                Priority = prio }
          q.AddWork work
          { Work = work; TaskSource = tcs }
  
negative.code:     let getPackageDetailsBlock sources groupName packageName semVer =
          let workHandle = startRequestGetPackageDetails sources groupName packageName semVer
          getAndReport sources Profile.BlockReason.PackageDetails workHandle
  
      let startedGetVersionsRequests = System.Collections.Concurrent.ConcurrentDictionary<_,WorkHandle<_>>()
      let startRequestGetVersions sources groupName packageName =
          let key = (sources, packageName)
  