diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-06-23 18:46:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-06-27 11:14:42 +0200 |
| commit | 08c95ba28d5d5c9c96f6d1bdcfb75a04e5177a74 (patch) | |
| tree | 3ddb9578b06846a02cefb4f01fe2af422ade2faa | |
| parent | d38d4ffa10d74e361e15e18d04898eb5af3fb2eb (diff) | |
| download | guix-08c95ba28d5d5c9c96f6d1bdcfb75a04e5177a74.tar guix-08c95ba28d5d5c9c96f6d1bdcfb75a04e5177a74.tar.gz | |
ui: 'show-derivation-outputs' accepts <derivation-input> records.
* guix/ui.scm (show-derivation-outputs): Handle <derivation-input>
records.
| -rw-r--r-- | guix/ui.scm | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 630afa47bf..6d243ef041 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -777,12 +777,19 @@ error." 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))) |