anchor.diff:      state.Hints
       |> Map.tryFind p
       |> Option.defaultValue []
  -    |> List.map (fun l -> l.PrivatePackages |> Map.toSeq)
  +    |> Seq.map (fun l -> l.PrivatePackages |> Map.toSeq)
       |> Seq.collect id
       |> Seq.groupBy fst
       |> Seq.map (fun (k, vs) -> (k, vs |> Seq.map snd |> Seq.distinct |> Seq.map List.singleton |> List.concat))
  
positive.code:     while true do
        let! req = inbox.Receive()
        match req with
        | GetCandidates (constraints, dep, locations, channel) ->
          trackLocal locations dep
          |> AsyncSeq.takeWhile(fun e ->
  
negative.code:   let findUnresolved pick (selections: Map<PackageIdentifier, ResolvedVersion * Solution>) (deps: Set<Dependency>) =
      let constraints =
        Map.valueList selections
        |> Seq.map fst
        |> Seq.map (fun m -> m.Manifest.Dependencies)
        |> Seq.map (Set.map toPackageConstraint)
        |> Seq.fold Set.union (deps |> Set.map toPackageConstraint)
        |> constraintsOf
  
      let rec loop (visited: Set<PackageIdentifier>) (deps: Set<Dependency>) : seq<PackageIdentifier * Set<Constraint>> = seq {
  