diff options
| -rw-r--r-- | guix/store.scm | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/guix/store.scm b/guix/store.scm index 9e3074414e..6fd34bc643 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -806,15 +806,14 @@ PATHS---i.e., PATHS and all their dependencies." sorted (filter (cut member <> paths) sorted)))) - (let ((s (nix-server-socket server))) - (let loop ((paths ordered)) - (match paths - (() - (write-int 0 port)) - ((head tail ...) - (write-int 1 port) - (and (export-path server head port #:sign? sign?) - (loop tail))))))) + (let loop ((paths ordered)) + (match paths + (() + (write-int 0 port)) + ((head tail ...) + (write-int 1 port) + (and (export-path server head port #:sign? sign?) + (loop tail)))))) (define* (register-path path #:key (references '()) deriver prefix |