summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-22 11:50:40 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-22 12:42:52 +0100
commitbec3474107e73fc0ca3821a525025c27dc005288 (patch)
treec0bcffb3739fb13363cbcc6dc342028a1b46b6ab
parenta0f480d623f71b7f0d93de192b86038317dc625b (diff)
ui: 'show-what-to-build' returns true when there are grafts to build.
* guix/ui.scm (show-what-to-build): Distinguish between 'build/full' and 'build'. Return true whe 'build/full' is non-empty, thus taking grafts into account.
-rw-r--r--guix/ui.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 46286c183d..12a998d9c6 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -934,7 +934,7 @@ check and report what is prerequisites are available for download."
colorize-store-file-name
identity))
- (let*-values (((build download)
+ (let*-values (((build/full download)
(derivation-build-plan store inputs
#:mode mode
#:substitutable-info
@@ -958,7 +958,7 @@ check and report what is prerequisites are available for download."
#:hook ,hook
#:build ,(cons file build))))))))
'(#:graft () #:hook () #:build ())
- build)
+ build/full)
((#:graft graft #:hook hook #:build build)
(values graft hook build)))))
(define installed-size
@@ -1041,7 +1041,7 @@ check and report what is prerequisites are available for download."
(check-available-space installed-size)
- (pair? build)))
+ (pair? build/full)))
(define show-what-to-build*
(store-lift show-what-to-build))