[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Mathieu Othacehe |
Date: |
Mon, 29 Nov 2021 08:02:33 -0500 (EST) |
branch: wip-logs
commit 0a014194ee7eaeaf8f4312adfba7b58b74a4fe4b
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Nov 29 13:59:31 2021 +0100
wip: add remote-worker logs.
---
src/cuirass/scripts/remote-worker.scm | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/src/cuirass/scripts/remote-worker.scm
b/src/cuirass/scripts/remote-worker.scm
index d25ad4f..764ebdc 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -204,7 +204,8 @@ still be substituted."
#:max-silent max-silent)
(reply (zmq-build-started-message drv name))
(guard (c ((store-protocol-error? c)
- (info (G_ "Derivation `~a' build failed: ~a~%")
+ (info (G_ "~a: derivation `~a' build failed: ~a~%")
+ name
drv (store-protocol-error-message c))
(reply (zmq-build-failed-message drv local-publish-url))))
(let ((result
@@ -215,11 +216,11 @@ still be substituted."
(finish))))
(if result
(begin
- (info (G_ "Derivation ~a build succeeded.~%") drv)
+ (info (G_ "~a: derivation ~a build succeeded.~%") name drv)
(register-gc-roots drv)
(reply (zmq-build-succeeded-message drv local-publish-url)))
(begin
- (info (G_ "Derivation ~a build failed.~%") drv)
+ (info (G_ "~a: derivation ~a build failed.~%") name drv)
(reply
(zmq-build-failed-message drv local-publish-url)))))))))
@@ -235,15 +236,16 @@ command. REPLY is a procedure that can be used to reply
to this server."
('max-silent max-silent)
('timestamp timestamp)
('system system))
- (info (G_ "Building `~a' derivation.~%") drv)
+ (info (G_ "~a: building `~a' derivation.~%")
+ (worker-name worker) drv)
(run-build drv server
#:reply reply
#:worker worker
#:timeout timeout
#:max-silent max-silent))
(('no-build)
- (info (G_ "~a: No available build.~%"
- (worker-name worker)))
+ (info (G_ "~a: no available build.~%")
+ (worker-name worker))
#t)))
(define (worker-ping worker server)