Browse Source

guix-build: Display multiple outputs when needed.

* guix-build.in (guix-build): Display multiple outputs when there's more
  than one.
wip-grafts
Ludovic Courtès 10 years ago
parent
commit
9336b5ab55
  1. 12
      guix-build.in

12
guix-build.in

@ -130,6 +130,8 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
(setlocale LC_ALL "")
(textdomain "guix")
(setvbuf (current-output-port) _IOLBF)
(setvbuf (current-error-port) _IOLBF)
(let* ((opts (parse-options))
(drv (filter-map (match-lambda
@ -174,6 +176,12 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
(or (assoc-ref opts 'dry-run?)
(and (build-derivations %store drv)
(for-each (lambda (d)
(display (derivation-path->output-path d))
(newline))
(let ((drv (call-with-input-file d
read-derivation)))
(format #t "~{~a~%~}"
(map (match-lambda
((out-name . out)
(derivation-path->output-path
d out-name)))
(derivation-outputs drv)))))
drv))))))
Loading…
Cancel
Save