me
/
guix
Archived
1
0
Fork 0

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.
master
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

View File

@ -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))