~ruther/guix-local: guix-build: Display multiple outputs when needed.

9336b5ab551a36c3ff48dc82f2b4651989cd3afd — Ludovic Courtès 13 years ago d66ac37

guix-build: Display multiple outputs when needed.

* guix-build.in (guix-build): Display multiple outputs when there's more
  than one.

patch browse .tar.gz

1 files changed, 10 insertions(+), 2 deletions(-)

M guix-build.in

M guix-build.in => guix-build.in +10 -2

@@ 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))))))