diff options
| author | Mark H Weaver <mhw@netris.org> | 2015-09-22 16:38:48 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2015-09-22 16:38:48 -0400 |
| commit | bd90127ad43d08c39e5bd592d03f7c0a4c683afe (patch) | |
| tree | c840851273e349cb0aee31cb5958acdf093c819a /guix/scripts/build.scm | |
| parent | 5f20553dee3fbc924b0cafb54ac215b0d3bf344c (diff) | |
| parent | 430505eba33b7bb59fa2d22e0f21ff317cbc320d (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/scripts/build.scm')
| -rw-r--r-- | guix/scripts/build.scm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index ab2a39b1f8..a357cf8aa4 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -19,6 +19,7 @@ (define-module (guix scripts build) #:use-module (guix ui) + #:use-module (guix scripts) #:use-module (guix store) #:use-module (guix derivations) #:use-module (guix packages) @@ -537,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 |