ui: 'show-derivation-outputs' accepts <derivation-input> records.

* guix/ui.scm (show-derivation-outputs): Handle <derivation-input>
records.
This commit is contained in:
Ludovic Courtès 2019-06-23 18:46:53 +02:00
parent d38d4ffa10
commit 08c95ba28d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -777,12 +777,19 @@ (define (read/eval-package-expression str)
str))))
(define (show-derivation-outputs derivation)
"Show the output file names of DERIVATION."
(format #t "~{~a~%~}"
(map (match-lambda
((out-name . out)
(derivation->output-path derivation out-name)))
(derivation-outputs derivation))))
"Show the output file names of DERIVATION, which can be a derivation or a
derivation input."
(define (show-outputs derivation outputs)
(format #t "~{~a~%~}"
(map (cut derivation->output-path derivation <>)
outputs)))
(match derivation
((? derivation?)
(show-outputs derivation (derivation-output-names derivation)))
((? derivation-input? input)
(show-outputs (derivation-input-derivation input)
(derivation-input-sub-derivations input)))))
(define* (check-available-space need
#:optional (directory (%store-prefix)))