anchor.diff:      lock.Dependencies
       |> Seq.choose (fun target ->
         match target.PackagePath with
  -      | [], package -> Some [ package ]
  +      | [], package -> Some [ (package, false) ]
         | _ -> None
       )
       |> Set.ofSeq
  
positive.code:     for trace in traces do
        match trace with
        | head :: tail ->
          match lock.Packages |> Map.tryFind head with
          | Some lockedPackage ->
            yield head :: tail
  
            logger.Info ("Exploring " + (PackageIdentifier.show head) + "... ")
  
            let! manifest =
              sourceExplorer.FetchManifest (lockedPackage.Location, lockedPackage.Versions)
  
            let nextTraces =
              manifest.Dependencies
              |> Seq.map (fun dependency -> dependency.Package :: head :: tail)
              |> Set.ofSeq
  
            yield! nextTraces |> AsyncSeq.ofSeq
  
negative.code:       logger.Success ("Found the following traces for " + (PackageIdentifier.show package) + ": ")
  
        for trace in traces do
          logger.Print
            <| " @ " +
              (
                trace
                |> List.rev
                |> Seq.map (fun (package, isPrivate) ->
                  let arrow =
                    if isPrivate
                    then
                      "--{private}--> "
                    else
                      "-----> "
                  arrow + PackageIdentifier.show package
                )
                |> String.concat " "
              )
  
      return 0
    | None ->
  