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.
This commit is contained in:
Ludovic Courtès 2014-04-14 00:17:43 +02:00
parent 99e17dc927
commit 66ef541147

View File

@ -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)