union: Wrap collisions with newlines.

* guix/build/union.scm (union-build): Wrap collisions with newlines.
This commit is contained in:
Oleg Pykhalov 2018-02-11 11:16:56 +03:00
parent 5b23829299
commit 06a9dc2fd0
No known key found for this signature in database
GPG key ID: 7246E11C69B79569

View file

@ -93,7 +93,7 @@ (define (resolve-collisions output dirs files)
(cond ((null? dirs) (cond ((null? dirs)
;; The inputs are all files. ;; The inputs are all files.
(format (current-error-port) (format (current-error-port)
"warning: collision encountered: ~{~a ~}~%" "~%warning: collision encountered:~%~{~a~%~}"
files) files)
(let ((file (first files))) (let ((file (first files)))