10/16: ui: 'show-what-to-build' returns two values, for builds and downloads.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 883a1765a6edb29fb53c3f68eb2de9d839a3b7e1
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sun Mar 22 11:52:41 2020 +0100

    ui: 'show-what-to-build' returns two values, for builds and downloads.
    
    * guix/ui.scm (show-what-to-build): Return two values.
---
 guix/ui.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/guix/ui.scm b/guix/ui.scm
index 12a998d..1c0dd11 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -913,8 +913,10 @@ that the rest."
 derivations listed in DRV using MODE, a 'build-mode' value.  The elements of
 DRV can be either derivations or derivation inputs.
 
-Return #t if there's something to build, #f otherwise.  When USE-SUBSTITUTES?,
-check and report what is prerequisites are available for download."
+Return two values: a Boolean indicating whether there's something to build,
+and a Boolean indicating whether there's something to download.  When
+USE-SUBSTITUTES?, check and report what is prerequisites are available for
+download."
   (define inputs
     (map (match-lambda
            ((? derivation? drv) (derivation-input drv))
@@ -1041,7 +1043,7 @@ check and report what is prerequisites are available for 
download."
 
     (check-available-space installed-size)
 
-    (pair? build/full)))
+    (values (pair? build/full) (pair? download))))
 
 (define show-what-to-build*
   (store-lift show-what-to-build))