diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-03-22 11:53:21 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-22 12:42:52 +0100 |
commit | 9b771305df5dfc31c06b81fbdeaae753ba5d4afe (patch) | |
tree | 6febe77270874042014b10bec243f135fd84b860 /guix/ui.scm | |
parent | 883a1765a6edb29fb53c3f68eb2de9d839a3b7e1 (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.scm | 15 |
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 |