diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-12-31 18:32:15 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-31 18:35:29 +0100 |
| commit | 23973e4fbf1547da10a4d1e16c293192ee6a05ed (patch) | |
| tree | aac435b5d23cab359fc21008cd6c7b556170f15b | |
| parent | e9629e8221844081e95f7633a882b0a1e6fb45f6 (diff) | |
| download | gnu-guix-23973e4fbf1547da10a4d1e16c293192ee6a05ed.tar gnu-guix-23973e4fbf1547da10a4d1e16c293192ee6a05ed.tar.gz | |
ssh: 'send-files' returns the list of items sent.
* guix/ssh.scm (send-files): Return MISSING.
| -rw-r--r-- | guix/ssh.scm | 5 |
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 |