summaryrefslogtreecommitdiff
path: root/guix/ssh.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-31 18:32:15 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-31 18:35:29 +0100
commit23973e4fbf1547da10a4d1e16c293192ee6a05ed (patch)
treeaac435b5d23cab359fc21008cd6c7b556170f15b /guix/ssh.scm
parente9629e8221844081e95f7633a882b0a1e6fb45f6 (diff)
ssh: 'send-files' returns the list of items sent.
* guix/ssh.scm (send-files): Return MISSING.
Diffstat (limited to 'guix/ssh.scm')
-rw-r--r--guix/ssh.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/ssh.scm b/guix/ssh.scm
index e31ec53a4a..226c4fd97d 100644
--- a/guix/ssh.scm
+++ b/guix/ssh.scm
@@ -141,7 +141,8 @@ be read. When RECURSIVE? is true, the closure of FILES is exported."
recursive?
(log-port (current-error-port)))
"Send the subset of FILES from LOCAL (a local store) that's missing to
-REMOTE, a remote store. When RECURSIVE? is true, send the closure of FILES."
+REMOTE, a remote store. When RECURSIVE? is true, send the closure of FILES.
+Return the list of store items actually sent."
;; Compute the subset of FILES missing on SESSION and send them.
(let* ((files (if recursive? (requisites local files) files))
(session (channel-get-session (nix-server-socket remote)))
@@ -170,7 +171,7 @@ REMOTE, a remote store. When RECURSIVE? is true, send the closure of FILES."
;; Wait for completion of the remote process.
(let ((result (zero? (channel-get-exit-status port))))
(close-port port)
- result)))
+ missing)))
(define (remote-store-session remote)
"Return the SSH channel beneath REMOTE, a remote store as returned by