[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: remote-server: Log wrongly formatted messages.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: remote-server: Log wrongly formatted messages. |
Date: |
Fri, 17 Dec 2021 08:28:11 -0500 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch master
in repository guix-cuirass.
The following commit(s) were added to refs/heads/master by this push:
new 5092f08 remote-server: Log wrongly formatted messages.
5092f08 is described below
commit 5092f08a3ebb34e28331a69c273736d169d56da1
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Dec 17 14:27:34 2021 +0100
remote-server: Log wrongly formatted messages.
* src/cuirass/scripts/remote-server.scm (zmq-start-proxy): Log wrongly
formatted messages.
---
src/cuirass/scripts/remote-server.scm | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/cuirass/scripts/remote-server.scm
b/src/cuirass/scripts/remote-server.scm
index d7dcb71..035064a 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -497,7 +497,15 @@ frontend to the workers connected through the TCP backend."
(atomic-box-fetch-and-inc! %fetch-queue-size)
(zmq-message-send fetch-socket fetch-msg))
(read-worker-exp rest
- #:reply-worker reply-worker))))))
+ #:reply-worker reply-worker))))
+ (x
+ (log-error "Unexpected message: ~a." x)
+ (for-each (lambda (msg)
+ (log-error "~/content: ~a (~a)"
+ (zmq-message-content msg)
+ (false-if-exception
+ (zmq-message-string msg))))
+ x))))
(db-remove-unresponsive-workers (%worker-timeout))
(let ((delta (- (current-time) start-time)))
(when (> delta %loop-timeout)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: remote-server: Log wrongly formatted messages.,
Mathieu Othacehe <=