anchor.diff:              for (top, chains) in chains |> List.groupBy (DependencyChain.first) do
                   match chains |> List.sortBy DependencyChain.length, options.Details with
                   | shortest :: [], false ->
  -                    DependencyChain.format options.Details shortest |> tracen
  +                    DependencyChain.format resolution options.Details shortest |> tracen
                   | shortest :: rest, false ->
  -                    DependencyChain.format options.Details shortest |> tracen
  +                    DependencyChain.format resolution options.Details shortest |> tracen
                       tracen ""
                       tracefn 
                           "... and %d chain%s more starting at %O ..." 
  
positive.code:     | (_, LblPathNode n) -> length n + 1
      | (_, LblPathLeaf _) -> 2
  
      let format showDetails (c : DependencyChain) =
          let formatVerReq (vr : VersionRequirement) =
              match vr.ToString() with
              | "" -> ""
  
negative.code:                         top
                      tracen "To display all chains use --details flag."
                  | all, true ->
                      DependencyChain.formatMany resolution options.Details all |> tracen
                  | _ ->
                      failwith "impossible"
                  tracen ""
  