matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove an overly eager lib name to string conversion 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-08-27 12:01:57 +03:00
parent 52238a35f0
commit 6b55c21373
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
bin/main.ml
View File

@ -582,14 +582,12 @@ let installed_libraries =
let ctx = List.hd ctxs in
let findlib = ctx.findlib in
if na then begin
let pkgs =
Findlib.all_unavailable_packages findlib
|> List.map ~f:(fun (l, e) -> (Lib_name.to_string l, e))
in
let longest = String.longest_map pkgs ~f:fst in
let pkgs = Findlib.all_unavailable_packages findlib in
let longest =
String.longest_map pkgs ~f:(fun (n, _) -> Lib_name.to_string n) in
let ppf = Format.std_formatter in
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);
Format.pp_print_flush ppf ();
Fiber.return ()