summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-22 11:52:41 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-22 12:42:52 +0100
commit883a1765a6edb29fb53c3f68eb2de9d839a3b7e1 (patch)
tree85500174ef361c4a24ce2a9804e2dcc5f22bdc0c /guix
parentbec3474107e73fc0ca3821a525025c27dc005288 (diff)
ui: 'show-what-to-build' returns two values, for builds and downloads.
* guix/ui.scm (show-what-to-build): Return two values.
Diffstat (limited to 'guix')
-rw-r--r--guix/ui.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 12a998d9c6..1c0dd11edc 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))