summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-01 21:48:20 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-01 23:35:10 +0100
commitf3cf860635841f2a17640d9a65e5f389d56470cd (patch)
tree9f21170ba657d44e922435b2c7b887b624315e38
parent4b67098d9a69ccb176da116dadd1c28804c2c790 (diff)
offload: Remove redundant call to 'topologically-sorted' in 'send-file'.
* guix/scripts/offload.scm (send-files): Remove call to 'topologically-sorted'.
-rw-r--r--guix/scripts/offload.scm9
1 files changed, 4 insertions, 5 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index bc024a8701..1d60f65b16 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -429,10 +429,8 @@ be read."
(define (send-files files remote)
"Send the subset of FILES that's missing to REMOTE, a remote store."
(with-store store
- ;; Compute the subset of FILES missing on SESSION, and send them in
- ;; topologically sorted order so that they can actually be imported.
- (let* ((sorted (topologically-sorted store files))
- (session (channel-get-session (nix-server-socket remote)))
+ ;; Compute the subset of FILES missing on SESSION and send them.
+ (let* ((session (channel-get-session (nix-server-socket remote)))
(node (make-node session))
(missing (node-eval node
`(begin
@@ -441,11 +439,12 @@ be read."
(with-store store
(remove (cut valid-path? store <>)
- ',sorted)))))
+ ',files)))))
(port (store-import-channel session)))
(format #t (_ "sending ~a store files to '~a'...~%")
(length missing) (session-get session 'host))
+ ;; Send MISSING in topological order.
(export-paths store missing port)
;; Tell the remote process that we're done. (In theory the