diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-22 11:50:40 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-22 12:42:52 +0100 |
| commit | bec3474107e73fc0ca3821a525025c27dc005288 (patch) | |
| tree | c0bcffb3739fb13363cbcc6dc342028a1b46b6ab | |
| parent | a0f480d623f71b7f0d93de192b86038317dc625b (diff) | |
ui: 'show-what-to-build' returns true when there are grafts to build.
* guix/ui.scm (show-what-to-build): Distinguish between 'build/full' and
'build'. Return true whe 'build/full' is non-empty, thus taking grafts
into account.
| -rw-r--r-- | guix/ui.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 46286c183d..12a998d9c6 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -934,7 +934,7 @@ check and report what is prerequisites are available for download." colorize-store-file-name identity)) - (let*-values (((build download) + (let*-values (((build/full download) (derivation-build-plan store inputs #:mode mode #:substitutable-info @@ -958,7 +958,7 @@ check and report what is prerequisites are available for download." #:hook ,hook #:build ,(cons file build)))))))) '(#:graft () #:hook () #:build ()) - build) + build/full) ((#:graft graft #:hook hook #:build build) (values graft hook build))))) (define installed-size @@ -1041,7 +1041,7 @@ check and report what is prerequisites are available for download." (check-available-space installed-size) - (pair? build))) + (pair? build/full))) (define show-what-to-build* (store-lift show-what-to-build)) |