summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-07-23 16:08:39 +0300
committerAlex Kost <alezost@gmail.com>2015-09-18 21:42:06 +0300
commitfa394eb99ce3830059e0c7d4d488f63c4887bcd0 (patch)
tree85cfde63263d148ff4655c934803a3a8596a2abc /guix/scripts
parent88981dd3e2b5bb3ae1ad7e54648c038226282a61 (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.scm9
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