[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch wip-offload updated: tmp10
From: |
Mathieu Othacehe |
Subject: |
branch wip-offload updated: tmp10 |
Date: |
Tue, 15 Dec 2020 06:28:10 -0500 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch wip-offload
in repository guix-cuirass.
The following commit(s) were added to refs/heads/wip-offload by this push:
new 576243f tmp10
576243f is described below
commit 576243fffebb5e3d75efbf63af8e504f15e3356d
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Dec 15 12:27:59 2020 +0100
tmp10
---
src/cuirass/remote-server.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 8918bdf..335dadd 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -478,11 +478,12 @@ frontend to the workers connected through the TCP
backend."
(read-worker-exp (bv->string rest)
#:reply-worker reply-worker)))
((worker empty client empty rest)
- (let ((message (list empty client (zmq-empty-delimiter) rest)))
+ (let ((message (list client (zmq-empty-delimiter) rest)))
(if (need-fetching? (bv->string rest))
(begin
(pk (bv->string rest))
- (zmq-send-msg-parts-bytevector fetch-socket message))
+ (zmq-send-msg-parts-bytevector fetch-socket
+ (cons empty message)))
(zmq-send-msg-parts-bytevector client-socket message))))))
;; fetch-worker -> remote-server.
(when (zmq-socket-ready? items fetch-socket)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch wip-offload updated: tmp10,
Mathieu Othacehe <=