From 66ef5411471e8d5f25815b9ab1f360ad56e08544 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 14 Apr 2014 00:17:43 +0200 Subject: offload: Better synchronize with remote invocation of 'guix archive --missing'. * guix/scripts/offload.scm (send-files)[missing-files]: Call 'waitpid' after reading all of MISSING. --- guix/scripts/offload.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index c5cae4b07a..e340b7e8cc 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -443,9 +443,11 @@ success, #f otherwise." "-i" (build-machine-private-key machine) (build-machine-name machine) "guix" "archive" "--missing") - (open-input-string files)))) + (open-input-string files))) + ((result) + (get-string-all missing))) (for-each waitpid pids) - (string-tokenize (get-string-all missing)))) + (string-tokenize result))) (with-store store (guard (c ((nix-protocol-error? c) -- cgit v1.2.3