From b76ac3ff2e9027441b7a15d86765bcba0b0f9c31 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Tue, 7 May 2019 23:30:46 +0200 Subject: [PATCH] functoria_app: app_info fix callout to opam list --installed --- app/functoria_app.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/app/functoria_app.ml b/app/functoria_app.ml index 53b55d3..947e8f5 100644 --- a/app/functoria_app.ml +++ b/app/functoria_app.ml @@ -151,9 +151,10 @@ let app_info ?(type_modname="Functoria_info") ?(gen_modname="Info_gen") () = method !build i = Log.info (fun m -> m "Generating: %a" Fpath.pp file); - let cmd = Bos.Cmd.(v "opam" % "list" % "--installed" % "-s" % "--rec" % "--depopts" % "--required-by" %% of_list (Info.libraries i)) in + let direct = String.concat ~sep:"," (Info.package_names i) in + let cmd = Bos.Cmd.(v "opam" % "list" % "--installed" % "-s" % "--rec" % "--depopts" % "--required-by" % direct) in (Bos.OS.Cmd.run_out cmd |> Bos.OS.Cmd.out_lines) >>= fun (rdeps, _) -> - let opam = String.Set.(union (of_list (Info.package_names i)) (of_list rdeps)) in + let opam = String.Set.of_list rdeps in let ocl = String.Set.of_list (Info.libraries i) in Bos.OS.File.writef Fpath.(file + "in")