nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
guix/ui.scm
View File

@ -777,12 +777,19 @@ error."
str))))
(define (show-derivation-outputs derivation)
"Show the output file names of 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 (match-lambda
((out-name . out)
(derivation->output-path derivation out-name)))
(derivation-outputs derivation))))
(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)))