mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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:
parent
d636e54c27
commit
11dee1bb8f
1 changed files with 5 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue