aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-06 11:06:53 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-06 12:07:49 +0200
commit11dee1bb8fbe6efd85280ca58f3bd2f90baef31a (patch)
tree3c07a4f615211e1713f8c412f4be2f30abdbfa0c
parentd636e54c270a3ff427f4f94366b5f2049808c170 (diff)
downloadguix-11dee1bb8fbe6efd85280ca58f3bd2f90baef31a.tar
guix-11dee1bb8fbe6efd85280ca58f3bd2f90baef31a.tar.gz
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.
-rw-r--r--build-aux/build-self.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index 2782a4da72..f86c79f0d0 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