diff options
| author | Alex Kost <alezost@gmail.com> | 2015-07-23 16:08:39 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-09-18 21:42:06 +0300 |
| commit | fa394eb99ce3830059e0c7d4d488f63c4887bcd0 (patch) | |
| tree | 85cfde63263d148ff4655c934803a3a8596a2abc /guix/ui.scm | |
| parent | 88981dd3e2b5bb3ae1ad7e54648c038226282a61 (diff) | |
| download | guix-patches-fa394eb99ce3830059e0c7d4d488f63c4887bcd0.tar guix-patches-fa394eb99ce3830059e0c7d4d488f63c4887bcd0.tar.gz | |
ui: Add 'show-derivation-outputs'.
* guix/scripts/build.scm (guix-build): Extract code from here and move to...
* guix/ui.scm (show-derivation-outputs): ... here. New procedure.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index e028e40f6e..4a3630f242 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -62,6 +62,7 @@ show-bug-report-information string->number* size->number + show-derivation-outputs show-what-to-build show-what-to-build* show-manifest-transaction @@ -502,6 +503,14 @@ error." (leave (_ "expression ~s does not evaluate to a package~%") 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)))) + (define* (show-what-to-build store drv #:key dry-run? (use-substitutes? #t)) "Show what will or would (depending on DRY-RUN?) be built in realizing the |