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.
This commit is contained in:
Ludovic Courtès 2020-04-06 11:06:53 +02:00
parent d636e54c27
commit 11dee1bb8f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -408,7 +408,11 @@ (define* (build source
(major ((store-lift nix-server-major-version))) (major ((store-lift nix-server-major-version)))
(minor ((store-lift nix-server-minor-version)))) (minor ((store-lift nix-server-minor-version))))
(mbegin %store-monad (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)) (built-derivations (list build))
;; Use the port beneath the current store as the stdin of BUILD. This ;; Use the port beneath the current store as the stdin of BUILD. This