fix(install): respect display options

<!-- ps-id: e2cecc12-1609-4398-97d1-1d56cdbcfd8d -->

Signed-off-by: Ali Caglayan <alizter@gmail.com>

CHANGES.md

@@ -1,3 +1,8 @@
+Unreleased
+----------
+
+- dune install now respects --display=quiet mode (#7116, fixes #7106, @Alizter)
+
 3.7.0 (2023-02-17)
 ------------------
 

bin/install_uninstall.ml

@@ -718,8 +718,11 @@ let install_uninstall ~what =
                               | true ->
                                 Ops.remove_dir_if_exists ~if_non_empty:Fail dst
                               | false -> Ops.remove_file_if_exists dst);
-                              print_line "%s %s" msg
-                                (Path.to_string_maybe_quoted dst);
+                              (match config.display.verbosity with
+                              | Quiet -> ()
+                              | _ ->
+                                print_line "%s %s" msg
+                                  (Path.to_string_maybe_quoted dst));
                               Ops.mkdir_p dir;
                               let executable =
                                 Section.should_set_executable_bit entry.section

test/blackbox-tests/test-cases/install/display.t

@@ -0,0 +1,34 @@
+# Test installation display output
+
+  $ cat >dune-project <<EOF
+  > (lang dune 3.7)
+  > (package (name foo))
+  > EOF
+  $ cat >dune <<EOF
+  > (library
+  >  (public_name foo))
+  > EOF
+
+  $ cat >foo.ml <<EOF
+  > let x = "foo"
+  > EOF
+
+  $ dune build @install
+
+dune install should not output any "Installing" messages:
+
+  $ dune install --display=quiet --prefix prefix
+
+and for comparison here is the output normally:
+
+  $ dune install --prefix prefix
+  Deleting prefix/lib/foo/META
+  Deleting prefix/lib/foo/dune-package
+  Deleting prefix/lib/foo/foo.a
+  Deleting prefix/lib/foo/foo.cma
+  Deleting prefix/lib/foo/foo.cmi
+  Deleting prefix/lib/foo/foo.cmt
+  Deleting prefix/lib/foo/foo.cmx
+  Deleting prefix/lib/foo/foo.cmxa
+  Deleting prefix/lib/foo/foo.ml
+  Deleting prefix/lib/foo/foo.cmxs