From bec3474107e73fc0ca3821a525025c27dc005288 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 22 Mar 2020 11:50:40 +0100 Subject: 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. --- guix/ui.scm | 6 +++--- 1 file 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)) -- cgit v1.2.3