From 883a1765a6edb29fb53c3f68eb2de9d839a3b7e1 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 22 Mar 2020 11:52:41 +0100 Subject: 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 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)) -- cgit 1.4.1