mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 07:16:39 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

ui: 'show-what-to-build' returns true when there are grafts to build.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2020-03-22 11:50:40 +01:00
parent a0f480d623
commit bec3474107
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/ui.scm
View file

@ -934,7 +934,7 @@ (define colorized-store-item
colorize-store-file-name colorize-store-file-name
identity)) identity))
(let*-values (((build download) (let*-values (((build/full download)
(derivation-build-plan store inputs (derivation-build-plan store inputs
#:mode mode #:mode mode
#:substitutable-info #:substitutable-info
@ -958,7 +958,7 @@ (define colorized-store-item
#:hook ,hook #:hook ,hook
#:build ,(cons file build)))))))) #:build ,(cons file build))))))))
'(#:graft () #:hook () #:build ()) '(#:graft () #:hook () #:build ())
build) build/full)
((#:graft graft #:hook hook #:build build) ((#:graft graft #:hook hook #:build build)
(values graft hook build))))) (values graft hook build)))))
(define installed-size (define installed-size
@ -1041,7 +1041,7 @@ (define display-download-size?
(check-available-space installed-size) (check-available-space installed-size)
(pair? build))) (pair? build/full)))
(define show-what-to-build* (define show-what-to-build*
(store-lift show-what-to-build)) (store-lift show-what-to-build))