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

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

Browse source 
* guix/ssh.scm (send-files): Return MISSING.
This commit is contained in:
Ludovic Courtès 2016-12-31 18:32:15 +01:00
parent e9629e8221
commit 23973e4fbf
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/ssh.scm
View file

@ -141,7 +141,8 @@ (define* (send-files local files remote
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 @@ (define* (send-files local files remote
;; 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