ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix-build: Display multiple outputs when needed.

Browse source 
* guix-build.in (guix-build): Display multiple outputs when there's more
  than one.
This commit is contained in:
Ludovic Courtès 2012-07-02 01:24:40 +02:00
parent d66ac374e9
commit 9336b5ab55
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix-build.in
View file

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