anchor.diff:      computeTraces directDependencies
       |> AsyncSeq.filter (fun trace ->
         match trace with
  -      | head :: _ -> head = packageToExplain
  +      | (head, _) :: _ -> head = packageToExplain
         | _ -> false
       )
       |> AsyncSeq.distinctUntilChanged
  
positive.code:       logger.Success ("Found the following traces for " + (PackageIdentifier.show package) + ": ")
  
        for trace in traces do
          logger.Print <| " @ -> " + (trace |> List.rev |> Seq.map (PackageIdentifier.show) |> String.concat " -> ")
  
      return 0
    | None ->
  
negative.code:     lock.Dependencies
      |> Seq.choose (fun target ->
        match target.PackagePath with
        | [], package -> Some [ (package, false) ]
        | _ -> None
      )
      |> Set.ofSeq
  