summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/store.scm17
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