From 6b55c21373c003b627eba79abe73856985cf329a Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Mon, 27 Aug 2018 12:01:57 +0300 Subject: [PATCH] Remove an overly eager lib name to string conversion Signed-off-by: Rudi Grinberg --- bin/main.ml | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/bin/main.ml b/bin/main.ml index 2bf9df3a..51e8acea 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -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 ()