ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-28 07:12:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

offload: Remove redundant call to 'topologically-sorted' in 'send-file'.

Browse source 
* guix/scripts/offload.scm (send-files): Remove call to
'topologically-sorted'.
This commit is contained in:
Ludovic Courtès 2016-12-01 21:48:20 +01:00
parent 4b67098d9a
commit f3cf860635
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/scripts/offload.scm
View file

@ -429,10 +429,8 @@ (define export
(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 @@ (define (send-files files remote)
(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