09/16: ui: 'show-what-to-build' returns true when there are grafts to build.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit bec3474107e73fc0ca3821a525025c27dc005288
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sun Mar 22 11:50:40 2020 +0100

    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.
---
 guix/ui.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index 46286c1..12a998d 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))