03/05: ssh: 'send-files' returns the list of items sent.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 23973e4fbf1547da10a4d1e16c293192ee6a05ed
Author: Ludovic Courtès <address@hidden>
Date:   Sat Dec 31 18:32:15 2016 +0100

    ssh: 'send-files' returns the list of items sent.
    
    * guix/ssh.scm (send-files): Return MISSING.
---
 guix/ssh.scm |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/ssh.scm b/guix/ssh.scm
index e31ec53..226c4fd 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