derivations: Make the "grafting..." message directly visible.

* guix/derivations.scm (graft-derivation)[build]: Add call to
  'force-output'.
This commit is contained in:
Ludovic Courtès 2015-02-11 11:11:01 +01:00
parent ab3872de4f
commit fbe952c99f

View file

@ -1095,6 +1095,7 @@ (define build
(let ((mapping ',mapping)) (let ((mapping ',mapping))
(for-each (lambda (input output) (for-each (lambda (input output)
(format #t "grafting '~a' -> '~a'...~%" input output) (format #t "grafting '~a' -> '~a'...~%" input output)
(force-output)
(rewrite-directory input output (rewrite-directory input output
`((,input . ,output) `((,input . ,output)
,@mapping))) ,@mapping)))