status: Always print the daemon's "waiting for locks" messages.
Reported by Ricardo Wurmus <rekado@elephly.net>. * guix/status.scm (print-build-event) <build-log>: Let "waiting for locks" messages through.
This commit is contained in:
parent
0e2d3ce20e
commit
f9051e3870
|
@ -383,14 +383,20 @@ (define print-log-line
|
|||
actual hash: ~a~%"))
|
||||
expected actual))
|
||||
(('build-log line)
|
||||
;; The daemon prefixes early messages coming with 'guix substitute' with
|
||||
;; "substitute:". These are useful ("updating substitutes from URL"), so
|
||||
;; let them through.
|
||||
(if (string-prefix? "substitute: " line)
|
||||
(begin
|
||||
(format port line)
|
||||
(force-output port))
|
||||
(print-log-line line)))
|
||||
;; TODO: Better distinguish daemon messages and build log lines.
|
||||
(cond ((string-prefix? "substitute: " line)
|
||||
;; The daemon prefixes early messages coming with 'guix
|
||||
;; substitute' with "substitute:". These are useful ("updating
|
||||
;; substitutes from URL"), so let them through.
|
||||
(format port line)
|
||||
(force-output port))
|
||||
((string-prefix? "waiting for locks" line)
|
||||
;; This is when a derivation is already being built and we're just
|
||||
;; waiting for the build to complete.
|
||||
(display (info (string-trim-right line)) port)
|
||||
(newline))
|
||||
(else
|
||||
(print-log-line line))))
|
||||
(_
|
||||
event)))
|
||||
|
||||
|
|
Loading…
Reference in a new issue