summaryrefslogtreecommitdiff
path: root/guix/ui.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-22 11:53:21 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-22 12:42:52 +0100
commit9b771305df5dfc31c06b81fbdeaae753ba5d4afe (patch)
tree6febe77270874042014b10bec243f135fd84b860 /guix/ui.scm
parent883a1765a6edb29fb53c3f68eb2de9d839a3b7e1 (diff)
ui: 'build-notifier' invokes continuation when there's nothing to do.
* guix/ui.scm (build-notifier): Call CONTINUE when there's nothing to build or download, even when DRY-RUN? is true.
Diffstat (limited to 'guix/ui.scm')
-rw-r--r--guix/ui.scm15
1 files changed, 9 insertions, 6 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 1c0dd11edc..b9ba8c0f7a 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -1078,12 +1078,15 @@ any build happening."
#f))
things))
- (show-what-to-build store inputs
- #:dry-run? dry-run?
- #:use-substitutes? use-substitutes?
- #:mode mode)
- (unless dry-run?
- (continue #t))))
+ (let-values (((build? download?)
+ (show-what-to-build store inputs
+ #:dry-run? dry-run?
+ #:use-substitutes? use-substitutes?
+ #:mode mode)))
+
+ (unless (and (or build? download?)
+ dry-run?)
+ (continue #t)))))
(define (right-arrow port)
"Return either a string containing the 'RIGHT ARROW' character, or an ASCII