Remove --with-deps flag if --with-modules is false for dune dependencies

sim642 · Jul 16, 2024 · acc46e8 · acc46e8
1 parent 8399d3b
commit acc46e8
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/bin/dune.ml b/src/bin/dune.ml
@@ -14,8 +14,7 @@ let run path (`Type type_) (`Tred_modules tred_modules) (`Tred_libraries tred_li
       Fpath.parent f
   in
   let+ s = OS.Dir.with_current dir (fun () ->
-      (* TODO: don't add --with-deps if with_modules = false *)
-      let dune_describe = Cmd.(v "dune" % "describe" % "workspace" % "--with-deps") in
+      let dune_describe = Cmd.(v "dune" % "describe" % "workspace" %% on with_modules (v "--with-deps")) in
       match with_pps with
       | None ->
         begin match OS.Cmd.(run_out Cmd.(dune_describe % "--with-pps") |> out_string) with