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/scripts | |
| parent | 88981dd3e2b5bb3ae1ad7e54648c038226282a61 (diff) | |
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/scripts')
| -rw-r--r-- | guix/scripts/build.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index 1d766c0b01..a357cf8aa4 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -538,14 +538,7 @@ arguments with packages that use the specified source." roots)) ((not (assoc-ref opts 'dry-run?)) (and (build-derivations store drv) - (for-each (lambda (d) - (format #t "~{~a~%~}" - (map (match-lambda - ((out-name . out) - (derivation->output-path - d out-name))) - (derivation-outputs d)))) - drv) + (for-each show-derivation-outputs drv) (for-each (cut register-root store <> <>) (map (lambda (drv) (map cdr |