Remove an overly eager lib name to string conversion
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
52238a35f0
commit
6b55c21373
10
bin/main.ml
10
bin/main.ml
|
@ -582,14 +582,12 @@ let installed_libraries =
|
||||||
let ctx = List.hd ctxs in
|
let ctx = List.hd ctxs in
|
||||||
let findlib = ctx.findlib in
|
let findlib = ctx.findlib in
|
||||||
if na then begin
|
if na then begin
|
||||||
let pkgs =
|
let pkgs = Findlib.all_unavailable_packages findlib in
|
||||||
Findlib.all_unavailable_packages findlib
|
let longest =
|
||||||
|> List.map ~f:(fun (l, e) -> (Lib_name.to_string l, e))
|
String.longest_map pkgs ~f:(fun (n, _) -> Lib_name.to_string n) in
|
||||||
in
|
|
||||||
let longest = String.longest_map pkgs ~f:fst in
|
|
||||||
let ppf = Format.std_formatter in
|
let ppf = Format.std_formatter in
|
||||||
List.iter pkgs ~f:(fun (n, r) ->
|
List.iter pkgs ~f:(fun (n, r) ->
|
||||||
Format.fprintf ppf "%-*s -> %a@\n" longest n
|
Format.fprintf ppf "%-*s -> %a@\n" longest (Lib_name.to_string n)
|
||||||
Findlib.Unavailable_reason.pp r);
|
Findlib.Unavailable_reason.pp r);
|
||||||
Format.pp_print_flush ppf ();
|
Format.pp_print_flush ppf ();
|
||||||
Fiber.return ()
|
Fiber.return ()
|
||||||
|
|
Loading…
Reference in New Issue