branch master updated: remote-server: Log wrongly formatted messages.

[Mathieu Othacehe]

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)