anchor.diff:      let hints =
         lock
         |> Option.map (fun l ->
  -        l.Packages |> Map.map (fun p v -> [({Package = p; Versions = v.Versions}, v.Location)] )   )
  +        l.Packages |> Map.map (fun p v -> [({Package = p; Versions = v.Versions}, v.Location)]))
         |> Option.defaultValue Map.empty
   
       let state = {
  
positive.code: 
      let depsFromPath p =
        match p with
        | Root m -> m.Dependencies
        | Node (_, _, rv) -> rv.Manifest.Dependencies
  
  
  
negative.code: 
  
    let pruneSelections (selections: Map<PackageIdentifier, ResolvedVersion * Solution>) (deps: Set<Dependency>) =
      let rec loop (visited: Set<PackageIdentifier>) (deps: Set<Dependency>) : seq<PackageIdentifier * ResolvedVersion> = seq {
        let notVisited =
          deps
  