build-self: Avoid call to 'show-what-to-build*' on modern Guix.

This avoids repeated "will be downloaded" messages for
'compute-guix-derivation' and its dependencies.

* build-aux/build-self.scm (build): Don't call 'show-what-to-build*'
when 'with-build-handler' is defined.

1 files changed, 5 insertions, 1 deletions

diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index 2782a4da729..f86c79f0d0d 100644
--- a/build-aux/build-self.scm
+++ b/build-aux/build-self.scm
@@ -408,7 +408,11 @@ files."
                       (major  ((store-lift nix-server-major-version)))
                       (minor  ((store-lift nix-server-minor-version))))
     (mbegin %store-monad
-      (show-what-to-build* (list build))
+      ;; Before 'with-build-handler' was implemented and used, we had to
+      ;; explicitly call 'show-what-to-build*'.
+      (munless (module-defined? (resolve-module '(guix store))
+                                'with-build-handler)
+        (show-what-to-build* (list build)))
       (built-derivations (list build))
 
       ;; Use the port beneath the current store as the stdin of BUILD.  This