diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-04-06 11:06:53 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-06 12:07:49 +0200 |
commit | 11dee1bb8fbe6efd85280ca58f3bd2f90baef31a (patch) | |
tree | 3c07a4f615211e1713f8c412f4be2f30abdbfa0c /build-aux | |
parent | d636e54c270a3ff427f4f94366b5f2049808c170 (diff) | |
download | guix-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.
Diffstat (limited to 'build-aux')
-rw-r--r-- | build-aux/build-self.scm | 6 |
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 |