Opam_graph: UI: More informative info box on direct deps

This commit is contained in:
rand00 2022-01-12 15:59:22 +01:00
parent 6f9b90eff9
commit c985ecc156

View file

@ -315,7 +315,8 @@ line {
deps_w_positions |> List.map (fun ((dep, pos), layer2_deps) ->
let radius = root_radius *. 0.7
and text =
sprintf "%s\nDependencies: %d"
sprintf "Direct dependency: %s\nDependencies: %d"
(*< goto choose between transitive/direct*)
dep.name (List.length layer2_deps)
and classes = [ dep.name; "direct_dep" ] in
make_node ~pos ~radius ~text ~classes